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PREFACE 



This PLM (Program Logic Manual) is a 
detailed guide to the serviceability aid 
programs provided with the DCS/VS system, 
supplementing various supervisor and 
transient functions. It documents internal 
logic and data flow through descriptive 
text, flowcharts, and figures. 



For tha complete logic of the DCS 
control and service operations, this manual 
is to be used with ttie follcwinn '-;ix 
companion PLK:s. 

• DOS/VG Error _RecQvery and Recording 
Transients , SY33-8552 

• DOS / VS _ I P L_ a n d_ J o b_C on t r c 1 , SY33-8555 

• DOS/VS_Librarian, SY33-8 557 

• DOS / VS_L ink a3e_E d i t or , SY 33-8556 

• 52S/VS_Su£e rvisor_Lo^ic , SY 3 3- 8 551 

• DOS/VS Logical Transients, SY 33-8553. 

Prerequisite to the effective use of the 
seven PLMs are the follov^ing publications. 

• IBM System/ 370 Principles of Operation , 
GA22-7000 

• Introduction to DOS/VS, GC 3 3- 5 3 70 

• DQS/ys System Management Guide , 
GC33-5371 

• IBM Systeni/36 Disk and Tape Operating 
SystemSy Assembler Language, GC24-3414. 

Publications related in subject matter to 
the seven system control PLiy.s are: 

• DOS/VS serviceability Aids and Debugging 
Procedures, GC 3 3- 5380 

• D^S /VS_Sy stem_Gener a tipn , GC33-5377 



• DCS/V^:^^^esGaqcG, GC 33- 5379 

• ^OS/VS^ 5yE§IYi2cr__arid _T/0__Ma crcs , 

GC3J-5373 

• DQS/VS_Cpe r at in3_Pr cce dur es , GC 33- 5 37 8 

• DCS/VS_Data _Management_Guide, GC33-5372. 

Titles and abstracts cf ether related 
publications are listed in the lEM 
SysteTr/3 60 and Systerr/37C Biblicqraphy , 
GA22-6822. 



This manual consists cf 
sections : 



ira lor 



• PDAIDS (Problem Determination Aids) 

• SEAID (System Debugging Aid) 

• DUMPGEN (Dump Generator) 

• PESCM (Page Data Set Dump) 

• LSERV (Label Information Cylinder 
Display) 

• ESTVUT (Error Statistics by Tape volume 
Utility) 

• EREP (Environm.ental Recording, Editing, 
and Printing) 

• Printer support programs 

• Appendixes containing various 
cross-reference lists, sample printouts, 
and supervisor tables. 

The flowchart symbols used in this manual 
ccnfcrrr tc the flowcharting standards cf 
the American National Standards institute. 
Inc. Numerals, such as CO, identify the 
program or general level flowcharts. The 
detailed flowcharts are identified by 
letters AA through ZZ. See Append ix_D . 
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PEAIDS (PROBLEM DETERMINATION AIDS) 






INTRODUCTION 



PDAIDs (Problem Determination Aids) provide 
the option to trace specified events during 
the operation of a program. Tracing may 
record the events of the problem program, 
the supervisor, or both. PDAIDs also 
provide the possibility to dump transient 
areas. 

IMPUT/OUTP UT_TRACE : The I/O (Input/Output) 
trace records I/O device activity. The 
data recorded by the I/O trace function iray 
be for all or a selected group of I/O 
devices. When an I/O interrupt occurs, the 
data recorded is: 

• I/O old PSW 

• CSW. 

When an SIO instruction is issued by the 
DOS/VS supervisor, the data recorded is: 

• Condition code 

• Device address 

• CCB address 



CSW. 



ElT£li/LO^D_TRACE : The F/L (Fetch/Load) 
trace records the order in which phases and 
transients are called from the core image 
library under the control of DOS/VS. When 
a fetch or a load is issued that causes an 
SVC 1, 2, or 4, the data recorded is: 

• Phase or transient name 

• SVC number 

• Location of the SVC 

• Partition identifier 

• Load address of the phase 

• Entry address of the phase. 

At times, SVCs 5, 6, 11, and 14 branch 
directly into the supervisor fetch or load 
routine. The fetch or load (SVCs 1, 2, and 
U) is recorded; however, the calling 
address and the SVC values for SVCs 5, 6, 
11, and 14 are not indicated in the actual 
fetch or load trace record. 



GENERALlZEr_SnPERVISOR_CALL_TRACE : The 
GSVC (Generalized Supervisor Call) trace 
records SVC interrupts as they occur. All 
SVCs, or a selected grcuf of SVCs, may be 
traced. The data recorded by the GSVC 
trace is: 

• SVC old PSW 

• Task identificaticn 

• Contents of register 

• Last three bytes of register 1 

• SVC number 

• Partition identifier. 



If PTO is included in the system, the SVCs 
issued when the physical transient area is 
busy are not traced. 



gTAM TRACE: The QTAM trace records the 
input/cutput activity cf QTAM in three 
areas: 

• SVCs and 31 

• A supervisor-issued SIO 

• An I/O interrupt. 

The I/O old PSW, the CSW, and the device 
address are recorded when an I/O interrupt 
occurs. The condition code, device 
address, CCB address, and CSW are recorded 
when a supervisor issues an SIO. The SVC 
eld PSW, the SVC number, the contents of 
registers and 1, and the partition 
identifier are recorded when an SVC or 31 
is issued. 

TRANSIENT DUMP: The transient dump allows 
certain areas of the supervisor to be 
displayed when a program check occurs. 
These areas are: 

• The 16 general registers used at the 
time of failure 

• The first 144 bytes of main storage 

• The physical transient area 

• The logical transient area. 
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Chart 01. General Logic Flow of the PDAID Prcgrairs 



/oet control frorriN 
Uhe Supervisor J 



Initializer Chart AA - AL 



The PDAID initializer locates 
the PD area and gets the 
function and module specified 




r 

I/O Trace 'IT 
Function I 



Read Parameters 
from SYSIPT 



Chart 02 



F/L Trace 
Function 



PDAIDITW Chart CA 
PDAiDITP Charts CB- CO 
PDAIDITT Charts CD -CE 



The I/O Trace function 
traces I/O events, and 
logs them either on the 
device specified or in 
real storage 



'XX' 



'FT' 

-L 



Chart 03 



PDAIDFTW Chart DA 
PDAIDFTP Charts DB- DC 
PDAIDFTT Charts DD -DE 



The F/L Trace function 
traces F/L events, and 
logs them either on the 
device specified or m 
real storage. 



Generalized 'GT' 
SV C Trace | 



Chat t 04 



QTAM 
Trace 



PDAIDGTW Charts EA-EB 
PDAIDGTP Charts EC -EE 
PDAIDGTT Charts EF- EH 



The GSVC Trace function 
traces SVC events, and logs 
them either on the device 
specified or in real storage. 



Q;$BPDAID^ 
Chart AM ^ 
:h$$BPDAID/ 



If the alternate area is to 
be dumped, SYSLST must be 
assigned before issuing 
EXECPDAID=XX 



'QT' 



Chart 05 



Transient 'TD' 

Dump j Chart 06 



PDAIDGTT Charts EM - EN 
PDAIDGTW Charts EJ -EL 



The QTAM Trace function 
traces QTAM events and 
logs them either on the de- 
vice specified or in real 
storage. 



PDAIDTDP 
PDAIDTDT 



FA-FB 
FC-FD 



Transient Dump provides a 
listing of the 16 general 
registers, the first 144 bytes 
of real storage, the logical 
^transfent area, and the 
physical transient area each 
time a program check 
interrupt occurs. 



^ 



If the output of PDAID 
was on tape 



f //EXECPDLIST j 



c 



PDLIST Charts BA-BF 



The Tape-to-Printer utility 
program translates the 
logged information into 
printable format and 
lists It on thepnnter. 



EOJ 



3 



(Return control ^ 
to supervisor J 
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Sy;stem Consideration tor PDAIDs 



If the use of PDAIDs is desired, then the 
follo'^ing rnust be performed prior to their 
execution: 

• Durinq systerr generation, specify PD=YES 
or PD>mOO in the FOPT macro of the 
installation tailored supervisor. (See 
Figure 55 in Ap£)endix_B for supervisor 
storage allocations.) 

Note: Up to 10,240 may be specified to 
increase the size of the FD area for the 
core-wrap mode. 

• Catalog the main phase (FDAID) to the 
core image library prior to its 
execution. 

All the PDAID programs are self -relocating, 
and can be run in any partition. If data 
provided by PDAIDs is recorded on magnetic 
tape, the PDLIST program must be used to 
obtain a listing. See the DCS/VS_SysteiT 
^£Il§^§:ti2Q manual listed in the Preface for 
supervisor specifications and cataloging 
procedures. 



Initiation of PDAID 



You can execute PDAIDs by using standard 
DOS/VS job control language from either 
SYSLOG or SYSIPT. The statement 

// EXEC PDAID 

causes the main phase, PDAID, to lead at 
the address of the initiating partition. 
Control is given to PDAID, vvhich issues the 
following message to the operator on 
SYSLOG: 

UCIOD PDAID= 

The operator must respond to this message 
with one of the following: 

IT Specifies an I/O Trace. See Ncte_l. 

FT Specifies an F/L Trace. See Ncte_l. 



GT Specifies a GSVC Trace. See Ncte_l. 
QT Specifies a QTAM Trace. See Note__l. 
TL Specifies transient dump. See Note_l. 

XX Terminates the PDAID presently running. 

See Not.-^ 2. 



IND Indicates PDAID ccntrcl 
entered througn I'Y.iiT. 



statem^ents are 



!5^te_l: l^hen IT, FT, GT , QT , cr TD is 
specified, tue operd^i'^i ni^s:^ give 
additional PDAID control statements through 
SYSLOG. 

Nc te_ 2 : If a iiit' . of thp alternate area is 
desired, SYSLST must be assigned before XX 
is speciti'i^« 

Figure 2 illustrates the PDAID control 
statements in the sequence in which they 
must be used. 

• The END response is valid only for 
SYSLOG and cannot be used as a SYSIPT 
operand. 

• F.ultiple operands or operator responses 
tc PDAID control statements for traces 
with a variable numbe'r of functions 

(such as ignoring SVCs) are net allowed. 
Repeat each parameter with each 
variable. Repeat each message until 
either the maximum number of variables 
is reached or an END response is given. 

• GC terminates the PDA ID ccntrcl input, 
and the default is taken for any PDAID 
options that are not specified. When 
you use SYSLOG, GC is a valid response 
(see Figure 2). When ycu use SYSIPT, GO 
should he the last parameter, and it has 
nc operand associated with it. 



§^i§^ti2Il_2f _an_Output__Device : FDAID 
message/parameter OUTPUT DFVICE= permits 
the selection of an output device. Specify 
the device by channel and unit, not by 
symbolic unit. If an output device is 
specifiedf PDAID checks the address against 
the supervisor PUB and selects the 
appropriate phase for the unit type (tape 
cr printer) . 
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§§i££ti2Il_2l_^2£§l^£§R_?:?2^^ • ^f ^^ output 
device is not specified, core-wrap mode is 
assumed. The event trace tables (see 
Figures 3, 6, 1, and 12) are kept in the PD 
area. The number of events contained in 
this area depends on the size of that area 
generated at system generation time v^7ith 
the PD option of the FOPT iracro. FD=1400 
(or PD=YES) is the minimum that can be 
selected. Figure 1 shows the iraxiirum 
number of entries for each trace type when 
PD=1U00 (minimum PD area) , and when 
PD=10,2ao (maximum PD area). 

If core-wrap mode is selected, an 
alternate area, which belongs tc the - 



supervisor, but resides in the rrain page 
peel, can be used for the trace tables (see 
Figures 3, 6, 7, and 12). The size of the 
alternate area is specified through the 
message/parameter AAA=nK. AAA= and OUTPUT 
EEVICF^ are mutually exclusive; when one is 
specified, the other cannot be used. If 
the alternate save area is specified, the 
PD save area is not used. Neither can the 
PD save area be used when PDAID and SDAID 
are used concurrently. 



Neither core wrap ncr AAA are valid for 

transient dump. 



1 
1 


Trace Type 


T" 
1 


■ T"- 

1 

Length of Entry | 
1 
1 


Maximum Number 
Entries when 
PD ^ 1400 


of 


-J— 


Maximum Number of 
Entries when 

PD = 10,240 


J 


I/O 
F/L 
GSVC 

QTAM 


t " 


18 1 
22 1 
18 1 
21 1 


42 
42 
50 
35 




-^ 


544 
453 
552 
465 



L 



± X 



X J 



Figure 1. Maximum Number of PD Area Entries 
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SYSLOG 
Message 



/ 



SYSIPT 
Parameter 



SYSLOG 
Response 



/ 



SYSIPT 
Operand 



Meaninci 



Default 



PDAID* 




FT 


Fetch/Load Trace 


GT 


GSVC Trace 


IT 


I/O Trace 


QT 


QTAM Trace 


TD 


Transient dump 


XX 


Terminate present PDAID function 



END Key Additional PDAID control input Ithrough SYSIPT 



None, the 

function 

continues. 



OUTPUT DEVICE = 
(Notel) 



icuu 
X'cuu' 
END Keyf 
GO 



Specify the hexadecimal channel and unit number of either 
a magnetic tape unit or a printer for the output device of 
the PDAID. A printer is invalid for QTAM Trace. A device 
must be specified for transient dump. 



Core - Wrap 
mode; 
none for 
transient 
dump 



AAA= 

(Notes 1 , 3, and 4) 



[{i°4] 



Specify the size of an alternate area 
for Core - Wrap Mode. Minimum is 2K, 
maximum 99K, 



Core - Wrap 
Mode using 
PD Save 
Area. 



TRACE PARTITION= 

(Valid only for 
Fetch/Load, GSVC 
and QTAM trace) 




SP Supervisor 

BG Background 

F4 Foreground 4 

F3 Foreground 3 

F2 Foreground 2 

F1 Foreground 1 

For the QTAM trace only SVCs and 31 are recor- 
ded per partition. 



Trace all 
partitions 
and the 
supervisor. 



IGNORE DEVICE= 
(Notes 2 and 3) 



icuu 
X'cuu' 
END Key( 
GO 



Specify the hexadecimal channel and unit number of the 
device to be ignored by the I/O or QTAM trace. A 
maximum of 3 may be specified. 



Trace all 
devices. 



TRACE DEVICE= 
(Notes 2 and 3) 



[cuu j 

I X'cuu' ( 
j END Key! 

(go ) 



Specify the hexadecimal channel and unit number of the 
device to be traced by the I/O or QTAM trace. A maxi- 
mum of 3 may be specified. 



Trace all 
devices. 



IGNORE SVC= 
(Notes 2 and 3) 



[|rH] 



Specify the hexadecimal SVC number to be ignored by the 
GSVC trace. A maximum of 6 may be specified. 



Trace all 
SVCs. 



TRACE SVC= 
(Notes 2 and 3) 



Dr^"!] 



Specify the hexadecimal SVC number to be traced by the 
GSVC trace. A maximum of 6 may be specified. 



Trace all 
SVCs. 



GO 

(Valid SYSIPT 

parameter) 



GO 

(Valid SYSLOG 

response) 



GO terminates the PDAID control input and uses the 
default for those options that are not specified. 



None. 



Note 1. OUTPUT DEVICE and AAA are mutually exclusive. Neither can be shared with any other program. 

Note 2. TRACE and IGNORE are mutually exclusive. 

Note 3. Not valid for transient dump. 

Note 4. When PDAID is used concurrently with SDAID the alternate PD save area cannot be used. 

Figure 2. PDAID Control statements 
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chart 02. Logic Flow of the I/C Trace Functicn 



(^//EXECPDAID 




END Key 



(: 



Fetch $$BPD AID ) 
Chart AL J 



Read parameters 
fromSYSIPT 



Reset hooks 



] 



Point to 
Selected 
Phase 



( EOJ ) ( Fetch $$BPDAID) 

\ J V Chait AL y 



Reset hooks 
Load selected 
phase into PD area 
Tutnon appropriate 
hooks in supervise 



(EOJ (See Note 1) ) 





Supervisor hook 




(SIO,Orl/0 




intenupt loutine) 




BALR 


NO 


y'^ Traceable \> 




\^^ device ^/^ 




YES 


YES 


/^Core dumps\ 




Note 1 At this time, the I/O Trace phase has been loaded 
and another job is executed with I/O Events being 
traced 



Printer (PDAIDl FP ) Tape (PDAIDITT) 

Charts CBCC Charts CD CE 



None (PDAIDITW) 
ChdtlCA 



Note 2 




The device may be a printer or tape, in which 
case PDAIDITP or PDAIDITT performs the trace 
If no device is specified, PDAIDITW performs 
the trace. 



(Return control ^ 
to Supervisor J 



"N 




> a- 



\ 
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I/O TRACE FUNCTION 



5j^^m3_9£j£i:2I}^ 



The I/O trace function (Chart 02) provides 



trace table/ r r ir 
(See Fiqnrer. 3 ani 



.ut devices. 



4.) 



I/O trace allows the I/C activity of 
programs run under DOG/VS tc be traced. 
Tracing consists of: 

• Recording the device address, the I/O 
old PSt^, and the CSW i^^hen an I/O 
interruption occurs and 

• Recording the SIO prefix, the condition 
code, tiie device address, the CCB 
address, and the CSW (when the CSW is 
stored m response to an SIO instruction 
issued by the DOS/VS supervisor), 

Either of these is referred to as an I/O 
event. The events may be preserved in a 
rotating buffer (see Figure 6) in storage 
(first entry overwritten when the area is 
full, etc.), printed, or recorded on tape. 
When a tape is used, it must be processed 
by the PDLIST utility prograir to provide 
readable output data. 

If the program is running in virtual 
mode, the real CCB and CSW addresses are 
translated to virtual addresses before 
printing. 



Sample for I/O interrupt: 



J.. ^^ , ^- 

Device | I/O old PSW | 
address| | 



h 



csw 



Sample trace for a supervisor issued 
SIO: 



T T T T- 

SIO I |Dev. I CCB I 
bit 1 I Addr. | Address | 



CSW 



I 2 I 



I 

_JL- 



You can detect the SIO issued by the 
supervisor (CSW stored condition) by 
checking the PSW portion cf an entry in 
the storage dump and determining if the 
system mask byte contains an X'OO'. If 
the system mask byte is not X'OO', the 
I/O event was an interrupt. 



Figure 3. I/O Trace Table Entry 



The I/O trace function provides the 
following options. 

• Trace all I/O activity on the systeir 

• Eliminate a maxiirum of three devices 

• Liirit trace to a iraxiirum cf three 
devices. 

The trace-limiting options (see Figure 2) 
are specified by the initializer keywords 

IGNORE DEVICE^ or TRACE EEVICE=. All I/O 
activity is traced if cne cf these option 
keywords is not specified. The two 
keywords are mutually exclusive. When 
either is specified, the other becomes 
invalid. 

The three limiting cpticns are invoked 
by specifying the channel and unit 
addresses (X'cuu' or cuu) of the 
appropriate devices. syirhclic device 
references (SYSxxx) are invalid. 



Eata Collection 



I/O trace resides in the PD area and 
perforirs the actual tracing cf I/O events. 
The first entry to the phase causes some 
initialization to occur before the I/O 
event is acted upon. At each entry, the 
phase tests the logical transient area for 
a dump transient; normally, it dees not 
trace any I/O activity when a dump is in 
progress. (If it is necessary tc trace I/O 
events during a dump routine, the exit 
branch following the compare instruction 
labeled DUl^PCHK should be altered to a 
NOP.) This prevents a duirp €ith€r from 
overflowing the trace table when core wrap 
is used (see Figure 6) , or from causing 
excess output in output mode. 

If no dump is in progress, the device 
address is matched against either IGN or 
TRC entries to determine if the event 
should be entered into the trace tables. 

Ii2i§- I"t is ^^^ necessary tc ignore the PD 
output device. I/O events from this device 
are handled internally by the irodule. 
Events from the PD output device are traced 
if the I/C activity originates outside the 
PD mcdule (that is, the device is being 
shared) . 

If the event is not tc be traced, 
control is returned to the supervisor 
routine from which the trace was entered. 
If the event involves a device to be 
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traced, an entry is made in the trace 
table. At this point, the ccre-v\?rap 
returns to the supervisor. 



Output 



The I/O output phase tests for a full table 
before returning to the supervisor, and 
attempts to output the table when it 
contains enough entries. If the output 
device cannot be accessed, control is 
returned to the supervisor, and output is 
retried at each subsequent entry to the 
trace phase. Limited overflow buffers are 
available in each module: 



I Type 
I Output 
i" 



I Full 
liable 



I Overflow 
[Entries 



-+- 



Maximum 
Capacity | 



I Printer |3 Entries |5 Entries | 
I (PDAIDITP) I 



Entries 



h 



-+- 



I Tape 1 13 Entries 1 7 Entries] 20 
I (PDAIDITT) I j I Entries 

L X J. J. _J 

When the I/O output device must share a 
selector channel or a control unit, the 
overflow capacity can be exceeded, and I/O 
events can be lost. The trace phase tests 
for such losses, and indicates such with an 
* when they occur. (It is recoirirended that 
output options be selected to avoid such 
losses, and that one or more of the most 
active devices be ignored if an overflow 
occurs.) Figure 4 illustrates output after 
it has been printed. 



Sample Output for a Supervisor Issued SIO 



CSW 



PSW p QP q p 00 E/ F 3 6 4 8, 0000000008000000 



-►CCB Address 



"Channel and Unlf Address 



►Always X'OO' 

-► CSW stored condition 



Sample Output for I/O Interrupt CSW 

PSW \f E^Q Z p 00 C^ B o p 00 0^ 1 000355808000000 



► Next Instruction Address 
-► PGM Mask 



-►ILCCC 



"►Device Address 



►Machine State (AMWP) 

■►STG KEY 

I/O Interrupt, Systems Mask 
•—►Indicates that at least one I/O event 
following this entry has been lost be- 
cause of an overflow condition . 



Figure 4. Sample Output for I/O Trace 



The maximum number of entries which can be 
stored in the PD area is shown in Figure 1. 
When the area is full, the oldest entry is 
overlaid by each new entry. (Figure 6 
illustrates the method of updating the 
trace table for core-wrap mode) . 



\ 



PDAIDITW (CORE-WRAP MODE) 



PDAIDITW preserves a fixed number of I/O 
events in the PD save area, or in the 
alternate save area of the supervisor (when 
AAA= is specified). 

Since PDAIDITW executes in the PD area, 
the actual save area - when the PD save 
area is used - is equal to the PD area 
(generated during system generation) minus 
the length of PDAIDITW. 



Tc retrieve the trace tables, the PD 
area must be dumped. This can be done by 
using the PDAREA operand of the DUMP 
command. Of course, any dump that includes 
the supervisor will also include the PD 
area. 



If the alternative area is used, it is 
dumped automatically en the device assigned 
to SYSLST, when the PDAID program is 
terminated. 
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% 
/' 



PDAIDITW sets up the following pointers 
(Figure 6) . 

• SLOTl -~ address of the beginning of the 
save area. 

• NEXT -- address of the next available 
slot in the save area. (Because NEXT is 
filled with unchecked new inf oriration, 
it may contain either the oldest entry 
in the table, or the most recent 
activity of a device not being traced, 
If the latter is the case, ignore the 
entry. ) 

• WRAPADR — address of the end of the 
save area. 



unreported event is 'pushed cut' of the 
top, an asterisk is set into the I/O area 
tc indicate the overflew. Printing is 
attempted at each entry to the phase, until 
successful. If the printer is net ready, 
or indicates errors, the rressaqe a(:24A is 
issued on HYGLOG and the systeir waits for 
an END response when the device is made 
ready. 



PDAIDITT (TAPE OUTPUT) 



r T~ 1 

I Trace Type | Address of | 
I I SLOTl is at I 
^ .+ ^ 

I Input/output I PDAREA+X'194' I 
I Fetch/load | PDAREA+X'E6' | 
1 GSVC I PDAREA+X'114' | 

I QTAM I PDAREA+X'IBC* | 

L X ^ ^^ ^J 

Figure 5, Trace Entry Locations in the 
PD Save Area 



PDAIDITT collects and writes on an 
unlabeled tape the I/O events that occur 
during execution of the problem program. 
The events are written on tape in core 
image (unprintable) format. PDAIDITT 
requires a tape-to-printer operation using 
the PDLIST utility program tc retrieve the 
traced events. The tape must be processed 
with the tape drive temporarily assigned as 
SYS005 and SYSLST assigned tc a printer to 
obtain readable listings of the traced 
events. 



PDAIDITP (PRINTER OUTPUT) 



PDAIDITP is selected when a printer is 
specified as the output device. It 
collects three I/O events, then formats and 
prints them, using a line printer. 

If the printer cannot be accessed, 
control is returned to the supervisor. 
Subsequent events are preserved by 'pushing 
up* the table slot, and entering each new 
event at the bottom (Figure 7) . When an 



I/O events are collected in an area that 
may contain a miaximum of 20 entries. An 
attempt is made to write the entire area as 
a single record when 13 events are present 
in the table. If the channel is busy on 
the attempted output, control is returned 
to the supervisor SIO routine cr interrupt 
handler routine. When the next I/O event 
is received, it is entered in one of the 
five overflow entries, and another attempt 
tc output is made. Thus, the records on 
tape contain between 13 and 20 I/O events 
per block. The PDLIST utility program 
takes this into account and prints only the 
valid I/O events. 
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Log 
cuu 



Output 
cuu 



IGN1/TRC1 
cuu Note 1 



cuu Note 1 



IGN2/TRC2 IGN3/TRC3 



cuu Note 1 



Alternate Area 
Start Address 



Alternate Area 
End Address 



CHANQPTR 



"i"::^- ' :% ■ ■:, ,• ' "■• ■■ .•."•■ ' ■.. .^^;-:.!:U..uMjMi,^H.n^M.n, ; ,, , ,M . ;.iyM,,H^ u .. j^;^.^ . u , ^ . ,f^ . u.^.,^uuJ i:;^ ■•.. '^^ .;j: j^ i>j:^ ;-^|J^ i-^i^j-'^^.\^ -^^ .■:, ./ 



PRT1 
Note 2 



PRT2 
Note 2 



PRT3 
Note 2 



PRT4 
Note 2 



PRT5 
Note 2 



Reserved 






SL0T1 
4 bytes 



NEXT 
4 bytes 



WRAPADR 
4 bytes 



First Available Slot 




I Last Available Slot (Note 3) 



Note 1 • Used by Input/Output and QTAM Trace only. 

Note 2: These bytes are used by Fetch/Load, GSVC, and QTAM 
Trace functions. 

Note 3: When "Last Available Slot" is filled, "NEXT" is reset to 
"SLOT 1", and the table is overlaid with new entries. 

The layout of the PD Area is shown in Figure 16. 

Fiyure 6. Entering New Events in the Trace Table for I/C, F/L, GSVC, and 
QTAM Core-Wrap Modes 
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r 1 

1 I/O Event 1 
1 1 


I/O Event 


I/O Event 


1 1 
1 1 
1 1 
1 1 


I/O Event 


1 I/O Event 

1 J 



i O Event ''pushed out'' of table 



\ 



y Maximum number of I/O event 



New I'U event to be added 



Figure ?• Entering New I/C Events in the 
Trace Table 

Because 20 is the maxirrum nurrber of I/O 
events that can be recorded, an overflew 
will occur when the 21st I/O event is 
entered in the table. The tape ircdule 



recognizes this condition by checking the 
20th entry location in the table for an 
unreported I/O event. If one is found, a 
flag is set in the preceding (19th) entry 
Iccaticn. As the 20th entry is 'pushed 
out' Csee Figure 7) of the table, the 19th 
entry replaces the 20th, and thus the flag 
is available in the last entry. 



The PDIIST utility prograir checks for 
this flag when printing, and sets an + , 
indicating that an overflow has occurred 
and an I/C event(s) was lost. The * 
indicator is printed in the entry that 
precedes the irissed I/O eventCs). 

PCAIDITT makes no provision to handle 
error conditions during cutput . If the 
tape unit is busy, an imirediate return to 
the supervisor is made. If the tape unit 
is net busy, but a CSW stored condition is 
indicated or the tape unit is inoperable, 
the iressage 4C24A is issued en SYSLOG and 
the systerr. waits for an END response when 
the device is ready. 
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chart 03. Logic Flow of the Fetch/Load Trace Function 




"^ 



> 



common routrne 
Charts AA-AL 



(Return control ^ 
to Supervisor J 



I 
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FETCH/LOAD TRACE FUNCTION 



The F/L (fetch/load) trace (Chart 03) 
allows tracing the order in which phases 
and transients are under control of DOS/VS. 
See Figure 8 for the format of F/L trace 
entries. Tracing consists of recording 
(for SVC 1, SVC 2, and SVC 4): 

• The name of the phase or transient being 
called 



Figure 2), These options are useful only 
when the user runs several partitions at 
cnce, and does not wish to trace all of 
their, Norirally, only cne partition would 
be operating at a given time, and the 
default (trace all partitions) would allow 
both the single partition and the 
supervisor to be traced. 



Cata Ccllecticn 



• The supervisor call number 

• The location of the supervisor call 

• The partition identifier 

• The load address of the phase 

• The entry address of the phase. 

Note; At times, SVC 5, 6, 11 and 14 branch 
directly into the supervisor fetch or load 
routine. These are traced whenever they 
occur, and appear in the output of the 
trace? however, the calling address and SVC 
values do not indicate the actual fetch or 
load. 

Each collection of data is referred to 
as an F/L event. The events may be 
preserved in a rotating buffer (first entry 
overwritten when the area is full) , or may 
be printed or recorded on tape. When a 
tape is used, the tape must be processed by 
the PDLIST utility program to provide 
readable output data. 

Use of the request key during the 
operation of the F/L trace may result in 
apparently erroneous data due to the 
supervisor action required to handle the 
request. In particular, supervisor calls 
that have already been recorded may not be 
completed, and part of the data put out by 
the specific phase (PDAIDFTW, PDAIDFTP, or 
PDAIDFTT) may pertain to these incomplete 
SVCs. 



l£^£ill3._2£ti2El^ 



F/L trace phases reside in the PD area, and 
perfcrir the actual tracing of F/L events. 
All events are recorded after the phase is 
physically loaded into storage. The first 
entry to the phase causes sorre 
initialization to occur before the F/L 
event is acted upon. 

The value in the partition 
identification key (PIK) is matched against 
the (partition) entries tc determine 
whether or not the event should be entered 
into the tables. To conserve storage, the 
phase tests for partitions tc ignore, 
rather than partitions tc trace. PDAID 
accepts parameters and converts them to 
ignore parameters for the F/L trace 
modules. For example, if Fl, F2, F3, F4, 
and SP is specified, the initializer 
converts this information to an 'ignore BG • 
parameter for the F/L trace phase. 

If the event is tc be traced, an entry 
is made in the trace table. if not, 
control returns to the supervisor routine 
from which the trace was entered. 



Output 



F/L phases test for a full table before 
returning to the supervisor, and attempt to 
output the table when it contains enough 
entries,. If the output device cannot be 
accessed, control returns to the 
supervisor, and output is retried at each 
subsequent entry to the trace function. 
Limited overflow buffers are available in 
each phase as shown in the fcllcwing table: 



I 



The F/L trace: 

• Traces all SVC 1, 2, 4, and certain SVC 
5, 6,, 11 and 14 interruptions, and 

• Limits the trace by partition 
(multiprogramming systems only). 

Trace limiting options are specified by the 
initializer keyword TRACE PARTITION^ (see 



r r T T 1 

[Type I Full I Overflow | Maximum 
jCutput jTable |Entries [Capacity 
^ 4 4 4 

1 Printer |2 Entries 14 Entries | 6 Entries 
I (PDAIDFTP) I I I 



iTape I 9 Entries 16 Entries) 15 Entries 

1 (PDAIDFTT) I I I 

L -L J. ^JL- 
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Phase 
Name 



-^ ^ ^- 

I I Calling | 
I SVC I Address | 

.4 4 4. 

I 1 I 3 I 

.X X X- 



Load 
Address 



Entry* 
Address 



Partition 
ID 



*If a phase not found condition is detected, the load and entry addresses are 
set to X'FFFFFF'. 



Figure 8. F/L Trace Table Entry 



PDAIDFTW (CORE-WRAP MODE) 



PDAIDFTW preserves a fixed number of F/L 
events in the PD save area, or in the 
alternate save area of the supervisor (when 
AAA= is specified). 

Since PDAIDFTW executes in the PD area, 
the actual save area - when the PD save 
area is used - is equal to the PD area 
(generated during system generation) minus 
the length of PDAIDFTW. 

The maximum number of entries that can 
be stored in the PD area is shown in Figure 
1. When the PD area is full, the oldest 
entry is overlaid by each new entry. 
(Figure 6 illustrates the method for 
updating the trace table for core-wrap 
mode. ) 

To retrieve the trace tables, the PD 
area must be dumped. This can be done by 
using the PDAREA operand of the DUMP 
command. Of course any dump that includes 
the supervisor will also include the PD 
area. 

If the alternate area is used, it is 
dumped automatically on the device assigned 
to SYSLST, when the PDAID program is 
terminated. 

PDAIDFTW sets up the following pointers: 

• SLOTl -- address of the beginning of the 
save area. 

• NEXT — address of the next available 
slot in the save area. (Because NEXT is 
filled with unchecked new inforiration, 
it may contain either the oldest entry 
in the table, or the SVC number and 



calling address froir a partition not 
being traced. If the latter is the 
case, ignore the entry.) 



• WRAPADR — address cf the end of the 
save area. 



Note: The location cf SLOTl is shown in 
Figure 5. 



PDAIDFTP (PRINTER OUTPUT) 



PEAIEFTP is selected when a printer is 
specified as the output device. It 
ccllects two F/L events, forirats them for 
output, and prints their en a line printer. 
See Figure 9 for sample output. 

If the printer cannot be accessed, 
control returns to the supervisor. If the 
printer is off-line or is not ready, the 
iressage ^C2^A is issued en SYSLOG and the 
system waits for an END response when the 
printer is made ready. 

When two entries have been saved, they 
are formatted for output, and the save area 
is cleared. Two more entries may be saved 
before output is achieved, without an 
overflew condition occurring. However, 
when the I/O area and save area are full 
and an entry must be made, the oldest entry 
in the save area is lost, and an * 
indicator is set in the I/O area. Thus, an 
* in the output indicates that the next 
chronological entry (or entries) was lost 
due to an overflow. 
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PDAIDFTT (TAPE OUTPUT) 



PDAIDFTT collects and writes^ on an 
unlabeled tape, the F/L events that occur 
during execution of a job stream. The 
events are written on tape in core image 
format. Output from PDAIDFTT is formatted 
into printable characters by the PDLIST 
utility program. The input tape drive must 
be temporarily assigned as SYS005 before 
execution of PDLIST, and SYSLST must be 
assigned to a printer. 

F/L events are collected in a save area 
inside the PD area. When nine entries have 
been made in the save area, the phase 
attempts to output. If the tape drive 
cannot be accessed, control returns to the 
supervisor. If the tape drive is not 
ready, or indicates errors, the message 
4C24A is issued on SYSLOG and the system 
waits for an END response when the device 
is made ready. At each entry to the phase, 
the top slot in the save area is checked 
for an entry. If an entry is present, the 
save area is full, and an overflow occurs 
when the current entry is saved. If an 
overflow occurs, a flag is set in the 
oldest entry remaining after the current 
entry is saved. The PDLIST utility prcgrair 
checks for this flag when printing, and 
sets an * indicator when the flag is fcund, 
signifying that at least one F/L event was 
lost due to an overflow. 

Because PDAIDFTT attempts to output when 
it receives the ninth entry and has a 
buffer of six entry slots, there are 
between 9 and 15 entries per 330-byte block 
on the tape. The PDLIST utility program 
therefore checks for a valid entry before 
formatting. 



. $$BCLOS E^ ? .C 001 F68, , BG . ,L001E30. .& 001 E30 




Etitry Address 

-^ Load Address 

Paitition ID 

AK ^ATTENTION ROUTINE 

BG 

F4 

F3 

F2 

F1 



*" CdM ddciK'ss (This IS taken from the 
SVC old PSW, therefore, it is 
actually 2 bytes past the calling 
address ) 



Value of the Supervisor Call 

1 - Fetch Phase 

2 - Fetch B-transient 

3 - Fetch A-transient 

4 - Load Phase 

5 - Modify Supervisor Communications Region 

6 Cancel Problem Program 
B - Return from B-transient 
E - Cancel Job 



•-Phase Name 



$$BCL0SE*2 C-001F68 BG L-001E30 E-001E30 



Indicates that at least one F/L event 
following this event has been lost because 
of an overflow condition 



Figure 9. Sample Output fcr F/L Trace 
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chart 04. Logic Flow of the GSVC Trace Function 



{II EXEC PDAID 




(Fetch $$BPD AID ] 
^ Chart AL J 



Read parameters 
fromSYSIPT 



Point to 
Selected 



CTI. \ /Fetch $$BPDAI^ 

____J \^ Chart AL ~J 



Reset hooks 
Load selected 
phase into PD area 
Turn on appropriate 
hooks in supervisor 



( EOJ (See Note 1)j 



Supervisor hook 
(SVC routine) 




Assume core 
wrap selected 



Log trace on 
specified device 
(See Note 2) 



Assume all 
SVC's to be 
traced 






Trace 
Partition= 




^— GO I 



•^ 



> 



nK 



Log trace 
in PD area 



Log trace in 
specified alternate 
area in real storage 



—I 

GO 




Tape (PDAIDGTT) None (PDAIDGTW) 
ChditbEF-EH Charts EA-EB 




Note 1 At this time, the SVC Trace phase has been loaded 
and another job is executed with SVC Events being 
traced 

Note 2" The device may be a printer or a tape unit, in 

which case PDAiDGTP or PDAlDGTT performs 
the trace 



common routine 
Chdits AA AL 



J 



( 
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GSVC TRIAGE FUNCTION 

The GSVC trace function (Chart 04) builds a 
trace table as SVC interrupts occur. The 
trace table (Figure 10) consists of: 

• The SVC old PSW 

• The contents of register 

• The last three bytes of register 1 

• The SVC number 

• The partition identifier. 

The trace table entries may be stored in a 
rotating buffer in core (core-v?rap mode) , 
or output to a printer or tape unit. When 
tape output is used, the tape must be 
processed by the PDLIST utility program to 
provide readable output data. 

r ' T — ^-T -T T ^ ^ 1 

I I I iLast 3 I I 

I SVC old I Reg. 1 SVC [bytes | Partition | 
I PSW I I no. |reg. 1 | ID | 

I 8 I 4 I 1 I 3 I 2 I 

L -X ^ J. ^-i ^-X J 

Figure 10. GSVC Trace Table Entry 



Tracing Options 



cnce, and does not wish tc trace all of 
their. 

Note; If PTO=YES in the FOPT macro then 
SVCs issued when the physical transient 
area is busy are net traced. 



Data Collection 



GSVC trace resides in the PD area and 
performs the actual tracing of SVCs. The 
first entry to the phase causes some 
initialization to occur before the SVC is 
acted upon. 

The value in the program interrupt key 
(PIK) is matched against the PRT 
(partition) entries tc determine whether or 
not the event should be entered into the 
tables. Tc conserve storage, the phases 
test for partitions to ignore, rather than 
partitions to trace. The initializer 
program (FDAID) accepts TRACE PARTITION= 
parameters and converts them to ignore 
parameters for the SVC trace phases. For 
example, if Fl, f2, F3 , F4, and SP is 
specified, the initializer converts this 
information to an 'ignore BG ' parameter for 
the SVC trace phase. 

If the event is tc be traced, an entry 
is made in the trace table. If not, 
control returns to the supervisor routine 
from which the trace was entered. 






The GSVC function provides the following 
options: 

• Trace all SVCs 

• Selectively trace up to six SVCs 

• Selectively eliminate up to six SVCs and 
trace all others 

• Trace in all partitions 

• Selectively trace up to five partitions. 

Trace limiting options (see Figure 2) are 
specified by the initializer keywords 
IGNORE SVC= or TRACE SVC=. All SVC 
activity is traced if one of these option 
keywords is not specified. The two 
keywords are mutually exclusive: when 
either is specified, the other becom.es 
invalid. 

The six SVC limiting options are invoked 
by specifying the SVCs to be traced or 
ignored. The partition limiting options 
are specified by the initializer keyword 
TRACE PARTITION=. This is useful only when 
the user must run several partitions at 



Output 



If the SVC event was caused 
issued, the phases store the 
information in the table tut 
to move data to the I/O area 
the SVC event was caused by 
interrupt, the phases first 
information in the table and 
a full table. If the table 
phases attempt an output tef 
control to the supervisor. 



by an SVC being 

necessary 

dc not attempt 
If, however, 
an SIO or I/O 
store the 

then test for 
is full, the 
ere returning 



P ^ ^ ^ , ^ 

I Type I Full [Overflow [Maximum | 
[Output [Table [Entries [Capacity [ 

Y ^ + + ^ 

[Printer [2 Entries [ 4 Entries [6 Entries [ 

^ ^^j^ — + 1„ ^ 

[Tape [9 Entries I 5 Entries [14 Entries [ 
L X L X J 

When the output device m:ust share a 
selector channel or a control unit, the 
trace tables overflow capacity can be 
exceeded and SVCs can be lost. The trace 
phase tests for such losses and indicates 
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PSW-01 04000050001 494 0-00100054 1-AE000054 N-00 T-BG 

Reg. 1 I 



SVC NO. 



Reg. 
Instruction Address 

Program Mask 
ILC,CC 

Interruption Code 
Machine State (AMWP) 

Key 

I/O Interrupt, Systems Mask 



Lost Event Indicator 

If an * IS printed for the P, it indicates that at least one 
GSVC event following this event has been lost because of 
an overflow condition. 



Partition ID 
BG 
F4 
F3 
F2 
F1 



Figure 11. Sample Output for GSVC Trace 



them with an * when they occur, (It is 
recommended that output options be selected 
to avoid such losses, and that cne or rrore 
of the most active devices be ignored if an 
overflow occuis.) Figure 11 illustrates 
output after it has been printed. 



PDAIDGTW (CORE-WRAP MODE) 



PDAIDGTW preserves a fixed number cf I/O 
events in the PD save area, or in the 
alternate save area of the supervisor (when 
AAA= is specified). 

Since PDAIDGTW executes in the PD area, 
the actual save area - when the FD save 
area is used - is equal to the PD area 
(generated during system generation) minus 
the length of PDAIDGTW, 

The maximum number of entries that can 
be stored in the PD area is shown in Figure 
1. When the PD area is full, the oldest 
entry is overlaid by each new entry. 
(Figure 6 illustrates the method for 
updating the trace table for cere-wrap 
mode.) 

To retrieve the trace tables, the PD 
area must be dumped* This can be done by 
using the PBAREA operand of the DUMP 
command. Of course any duirp that includes 
the supervisor will also include the PD 
area. 



If the alternate area is used, it is 
dumped automatically on the device assigned 
tc SYSLST, when the PDAID prcgrair is 
terminated. 

PDAIDGTW sets up the following pointers: 

• SLOTl — address cf the beginning of the 
save area. 

• NEXT — address of the next available 
slot in the save area. (Because NEXT is 
filled with unchecked new information, 
it may contain either the oldest entry 
in the tahie^ or the SVC nurrber and 
calling address from a partition not 
being traced. If the latter is the 
case, the entry should be igncred.) 

• WRAPADR *- address cf the end of the 

save area. 

Note; The location of SXOTl is shown in 
Figure 5. 



PDAIDGTP (PRINTER OUTPUT) 



FDAIEGTP is selected when a printer is 
specified as the output device. It 
collects the two GSVC events, formats them 
for output, and prints them using a line 
printer. 
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If the printer cannot be accessed, 
control returns to the supervisor. If the 
printer is not ready or indicates errors, 
the message 4C24A is printed on SYSLOG and 
the system waits for an END response when 
the printer is made ready. 

When two entries have been saved, they 
are formatted for output and the save area 
is cleared. Four more entries iray be saved 
before output is achieved, without an 
overflow condition occurring. However, 
when the I/O area and save area are full 
and an additional entry must be made, this 
entry causes the save area to overflow 
(Figure 12) . The oldest entry in the save 
area is lost, and an * indicator is set in 
the I/O area. Thus, an * in the output 
indicates that the next chronological entry 
(or entries) was lost due to an overflew. 
Entries are double-spaced and printed two 
per line. 



I 1 

SVC Event" j SVC event "pushed out" of table 
\ 

SVC Event 



SVC Event 



I y Maximum number of SVC events 

I 

I 



SVC Event 



I SVC Event ' New SVC event to be added 

L_ ^ I 



Figure 12. Entering New SVC Events in the 
Trace Table for Output Devices 



PDAIDGTT (TAPE OUTPUT) 



PDAIDGTT collects and writes on an 
unlabeled tape the SVC events that occur 
during execution of the probleir prcgrair. 
The events are written on tape in core 
image (unprintable) format. PDAIDGTT 



requires a tape-to-printer operation using 
the PDLIST utility prograir tc retrieve the 
traced events. The tape must be processed 
with the tape drive teirpcrarily assigned as 
SYS005 and SYSLST assigned tc a printer to 
cbtain readable listings cf the traced 
events. 



GSVC events are ccllected in an area 
that may contain a maximurr of 14 entries. 
An attempt is made tc write the entire area 
as a single record when 9 events are 
present in the table. If the channel is 
busy on the attempted output, control is 
returned tc the supervisor SiO routine or 
interrupt handler routine. When the next 
SVC event is received, it is entered in one 
of the five overflow entries, and another 
attempt tc output is made. Thus, the 
records on tape contain between 9 and 14 
SVC events per block. The PDLIST utility 
program takes this into account and prints 
cnly the valid SVC events. 

Because 14 is the majqiiruro number of SVC 
events that can be recorded, an overflow 
will occur when the 15-biii SVC event is 
entered in the table. PDAIDGTT recognizes 
this condition by checking the 14th entry 
location in the table for an unreported SVC 
event. If one is found, a flag is set in 
the preceding (13th) entry location. As 
the 14th entry is 'pushed out* cf the 
table, (see Figure 12) the 13th entry 
replaces the 14th, and thus the flag is 
available in the last entry. 

The PDLIST utility program checks fcr 
the flag when printing, and sets an * 
indicator, indicating that an overflow has 
occurred and an SVC event (s) was lost. The 
* indicator is printed in the entry that 
precedes the missed SVC event(s). 

PDAIDGTT makes no provision tc handle 
error conditions during cutput. If the 
tape unit is busy, an immediate return to 
the supervisor is made. If the tape unit 
is net busy, but a CSW stored condition is 
indicated or the tape unit is inoperable, 
the message 4C24A is issued en SYSLOG and 
the system waits for an END response when 
the device is made ready. 
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Chart 05, Logic Flow of the QTAM Trace Functicn 



(^//EXECPDAip 




I Fetch$$BPDAID) 
V ^ Chart AL J 



Read parameters 
from SYSIPT 



Point to 
Selected 
Phase 



CEOJ ^ /Fetch $$BPDAId\ 

J V Chart AL J 



Reset hooks 
Load selected 
phase into PD area 
Turn on appropriate 
hooks ip supervisor 



( EOJ (See Note 1 



5 



Supervisor hook 
(SIO, I/O or SVC 
interrupt routine) 




Assume core 
wrap selected 



Log trace on 
specified device 
(See Note 2) 



Assume all 
devices to be 
traced 



None (PDAIDQTW) 
Charts EJ-EL 





END key 
J 



Log trace 
in PD area 



cuu, cuu, cuu) 



Trace 
Device=cuu 



^END KeyJ 



Ignore these devices 

(Maximum of 3) 



GOo 
|END Key- 

cuu,(cuu, cuu) 



Trace only 
these devices 
(Maximum of 3) 



-\ 






nK 



Log trace in 
specified alternate 
area in real storage 



—I 

GO 



> 



Note 1 . At this time, the QTAM Trace Phase has been loaded 
and another job is executed w/ith QTAM Events being 
traced. 

Note 2: The device may only be tape, in which case PDAIDQTT 
performs the trace. 



CG-^mcn routine 
Charts AA AL 



J 
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Q TAM TR ?ICE FUNCTION 



Description and Operation 



The QTAM trace function builds a trace 
table as interrupts occur. There are three 
types of trace events, each having a prefix 
that defines the event type (Figure 13) . 



A V-type event (Figure 13) is created 
when an SVC interrupt occurs and consists 
of: 

• V-prefix 

• SVC number 

• SVC old PSW 

• Contents of register 

• Contents of register 1 

• Partition identifier. 



An S-type event (Figure 13) is created when 
an SIO interrupt occurs and consists of: 



SVC Interrupt : 

r- T T ■ T ^ T ^T- 1 

I V I SVC I SVC OLD PSW|R€g.O|Reg.l|Part| 
I |No I I I I id I 
^ 4 4„^-^ ^.+-.„-+ 4 4 

|1|2| 8 |4|4|2| 

L J. J. J— X X J 

SIO Interrupt : 



1 


S|C| Device 


|CCB 


— T- 

ICSW 


" T 1 

[Not 1 


1 
h 

1 


|C|Addresj 

-4-+ 

1|1| 2 


3|Address| 

-4~ + 

1 4 1 8 

-X X 


[used 1 

-+ -1 

1 5 1 

X J 



I/Q Interrupt : 

I 1 1 Device | I/O old PSW| CSW j Not | 
I I address I | | used | 

I 1| 

L X- 



2 I 

X- 



^-4-. 4 ^^ 

8 I 8 I 2 I 
.- X X J 



Figure 13. QTAM Trace Table Entries 



• S-prefix 



• Condition code 



• Device address 



CCB address 



CSW. 



An I-type event (Figure 13) is created when 
an I/O interrupt occurs and consists of: 

• I-prefix 

• Device address 

• I/O old PSW 

• CSW, 

The trace events may be stored in a 
rotating buffer in core (core wrap) or sent 
to a tape unit. When tape mode is used, 
the tape must be processed by the PDLIST 
utility program to provide readable output 
data. 



The QTAM trace function provides the 
following options: 

• Trace all SVC and 31, SIO, and I/O 
interrupts 

• Selectively trace SVC and 31, SIO, and 
I/O interrupts frcir any three devices 

• Ignore SVC and 31, SIO, and I/O 
interrupts from any three devices 

• Limit the trace by partition. 

Trace-limiting options (see Figure 2) are 
specified by the initializer message/ 
parameters IGNORE DEVICE= or TRACE DEVICE=. 
(The device options are invoked by 
specifying the three devices tc be traced 
or ignored.) All SVC and 31, SIO, and 
I/O interrupt activity is traced in all 
partitions if one of these options is not 
specified. They are mutually exclusive: 
when either is specified, the other becomes 
invalid. 

The partition limiting options are 
specified by the initializer keyword TRACE 
FARTITION=. This is useful only if the 
user runs several partitions at the same 
time, but does not wish tc trace all of 
them. 



PDAIDS 31 



Data Collection 



The QTAM trace phases reside in the PD area 
and perform the actual tracing of QTAM 
events. The first QTAM event causes some 
initialization to occur before it is 
handled. At each entry, the trace tests 
the logical transient area for a dump 
transient; normally, it does not trace any 
interrupt activity when a dump is in 
progress. (If it is necessary to trace 
QTAM events during a dump routine, the exit 
branch following the compare instruction 
should be altered to a NOP.) This prevents 
the dump from either causing the trace 
table to overflow when core wrap is used 
(see Figure 3) , or from causing excess 
output. 

If no dump is in progress, the device 
address is matched against either IGN or 
TRC entries to determine if the event 
should be entered into the trace tables. 

If the event is not to be traced, 
control is returned to the supervisor 
routine from which the trace was entered. 

If the event involves a device to be 
traced, an entry is made in the trace 
table. At this point, the cere-wrap module 
returns control to the supervisors 



Output 



The QTAM output phases test for a full 
table before returning to the supervisor, 
and attempt to output the table when it 
contains enough entries. If the output 
device cannot be accessed, control is 
returned to the supervisor, and output is 
retried at each subsequent entry to the 
trace module. Limited overflow buffers are 
svaii^hie in each module! 



^ ^ ^ ^«., T 

I Type I Full I Overflow | Maximum | 
I Output I Table | Entries [Capacity | 
|. 1 + 4 ^ 

jTape j8 Entries |2 Entries] 10 Entries] 

L JL i i. j 

When the output device must share a 
selector channel or a control unit, the 
overflow capacity can be exceeded, and QTAM 
events can be lost. The trace tests for 
such losses, and indicates such with an * 
when they occur. (It is recommended that 



output options be selected tc avoid such 
losses, and that one or more of the most 
active devices be ignored if an overflow 
occurs.) Figure 14 illustrates output 
after it has been printed. 



PDAIDQTW (CORE-WRAP MODE) 



FDAIDQTW preserves a fixed number of events 
in the PD save area, or in the alternate 
save area cf the supervisor (when AAA= is 
specified) . 

Since PDAIDQTW executes in the PD area, 
the actual save area - when the PD save 
area is used - is equal to the PD area 
(generated during system generation) minus 
the length of PDAIDQTW. 

The number of entries that can be stored 
in the PD area is shewn in Figure 1. When 
the PD area is full, the oldest entry is 
cverlaid by each new entry. (Figure 6 
illustrates the method for updating the 
trace table for core-wrap mode.) 

To retrieve the trace tables, the PD 
area must be dum.ped. This can be done by 
using the FDAREA operand of the DUMP 
command. Of course any dump that includes 
the supervisor will also include the PD 
area. 

If the alternate area is used, it is 
dumped automatically on the device assigned 
tc SYSLST, when the PDAIE program is 
terminated. 

PDAIDQTW sets up the following pointers. 

• SLOT 1 — address of the beginning of 
the save area. 

• NEXT — address of the next available 
slot in the save area, (Because NEXT is 
filled with unchecked new data, it may 
contain either the eldest entry in the 
table, or the SVC number and calling 
address from the partition not being 
traced. If the latter is the case, the 
entry should be ignored.) 

© WRAPADR — address cf the end of the 
save area. 

Notes The location of SLOTl is shown in 
Figure 5. 






\ 
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Sample Output for SVCO and 31 SVC Interrupt 



PSW-FF0500004A006B5C SVC -000 



U 



V 

U-SVC NO 



RO-OOOOOOFF Rl-00006400 



t; 



Register 



L#-Regi 



9 



Register 1 Partition ID 



Next Instruction Address 
PGM Mask 
^— ^ ILC,CC 
'— ► Interruption Code 
•—^Machine State (AMWP) 
^-*-STG. Key 
■"—►I/O Interrupt^ Systems Mask 
^""^ "*" If previous record has overflowed 



Sample Output for a supervisor issued SIO, 

CC- 1 OOOE CCB-FF002348 C SW- 000023700COOOOOO 



•— *- Status 



Byte Count 
Status 
""*" Command Address 
Key 



•-►CCB Address 
* Device 
*"^ Condition Code 
'"*'"*" if previous record has overflowed 



Sample Output for I/O Interrupt. 



PSW-FF07001F40006B5C IC-OOOE 



_y 



^ 



C SW- 000061 7808 00003A 



-Device Address 



'— ^Next Instruction Address 
^PGM Mask 
^-^ILC,CC 
Interruption Code 
^-^Machine State (AMWP) 
•-^STG. Key 
•—♦"I/O Interrupt, Systems Mask 
-^"*" If previous record has overflowed 



•Byte Count 
"Status 
"Command Address 



"Key 



Figure 14, Sample Output for QTAM Trace 
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PDAIDQTT (TAPE OUTPUT) 



PDAIDQTT collects and writes on an 
unlabeled tape the QTAM events that occur 
during execution of the probleir prcgrair. 
The events are written on tape in core 
image (unprintable) format. Thus, this 
requires a tape-to-printer operation using 
the PDLIST utility program tc retrieve the 
traced events. The tape must be processed 
with the tape drive teirporarily assigned as 
SYSOOS^ and SYSLST assigned to a printer to 
obtain readable listings of the traced 
events, 

QTAM events are collected in an area 
that may contain a maximum of 10 entries. 
An attempt is made to write the entire area 
as a single record when 8 events are 
present in the table. If the channel is 
busy on the attempted output, control is 
returned to the supervisor SIO routine or 
interrupt handler routine. When the next 
QTAM event is received, it is entered in 
one of the two overflow entries, and 
another attempt to output is made. Thus, 
the records on tape contain between 8 and 
10 QTAM events per block. PDLIST utility 
program takes this into account and prints 
only the valid QTAM events. 

Because 10 is the maximum number of QTAM 
events that can be recorded, an overflew 
occurs when the 11th QTAM event is entered 
in the table. PDAIDQTT recognizes this 
condition by checking the 10th en try 
location in the table for an unreported 
QTAM event. If one is found, a flag is set 
in the preceding (9th) entry location. As 
the 10th entry is "pushed out" of the table 
(Figure 15), the 9th entry replaces the 
10th, and thus the flag is available in the 



last entry* The PDLIST utility program 
checks fcr this flag when printing, and 
sets an * indicator, noting that an 
overflow has occurred and a QTAM event (s) 
was lost. The * indicator is printed in 
the entry that precedes the irissed QTAM 
event (s) . 

PDAIDQTT makes no provision tc handle 
error conditions during cutput. If the 
tape unit is busy, an imirediate return to 
the supervisor is irade. If the tape unit 
is not busy, but a CSW stored condition is 
indicated or the tape unit is inoperable, 
the iressage 4C24A is issued en SYSLOG and 
the system waits for an END response when 
the device is made ready. 











QTAM event 


QTAM event "pushed out" of table 




QTAM event- 


\ 

\ Maximum number of QTAM events 


QTAM event 


QTAM event 




QTAM event 




QTAM event 


New QTAM event to be added 









I 



Figure 15. Entering New QTAM Events in the 
Trace Table for Tape Output 
Devices 
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Chart 06. Logic Flow of Transient Dump 




^ 



• Reset hooks 

» Lead selected phase 

into PD area 
i Turn on appiopnate 

hooks m Supervisor 



C 



EOJ 






Supervisor hook 
(fetch routine) 
BALR 



> 



common routine 
Charts AA-AL 



\ 



J 



Printer (PDAIDTDP) 
Charts FC-FD 



Display registers, 
first 144 bytes of 
real storage, PTA, 
and LTA 



(Return control ] 
to supervisor. J 



TAPE (PDAIDTDT) 
Charts FA-FB 




,// EXECPDLIST 




( 
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TRANSIENT DUMP 

Transient dump (Chart 06) allo\«s certain 
areas of the supervisor to be displayed 
when a program check occurs. These areas 
are displayed before they are altered by 
any supervisor routines. The areas 
displayed are: 

• The sixteen general registers being used 
at the time of failure 

• The first 144 bytes of real storage 

• The PTA (physical transient area) 

• The LTA (logical transient area). 



The output device of the transient dump 
program must be either a printer or a 
magnetic tape unit. If a tape is used, the 
tape must be processed by the PDLIST 
utility program to provide readable output 
data. 



is issued. The exit froir this message is 
either to the cutput rcutine if the failure 
is corrected, or to the supervisor. 



FDAIDTDP 



PDAIDTDP is selected when a printer is 
specified as the output device. Control is 
obtained from the supervisor and all areas 
are printed. If the channel program for 
the printer cannot be activated, control 
returns to the supervisor. If the printer 
is off-line or not ready, the iressage 4C24A 
is issued on SYSLOG and the system waits 
for an END key response when the printer is 
made ready. 

Each area is blocked, formatted for 
cutput, and printed. There is nc loss of 
data due to overflow since the I/O new PSW 
is altered so that ccntrcl is always 
returned to PDAIDTDP until all data is 
printed. 



Tracing Options 



None. 



Data Collection 



Transient dump phases reside in the PD 
area. The transient areas are displayed 
before they can be altered by any 
supervisor routine,' the registers and first 
144 bytes of real storage are restored to 
their values at the time of failure before 
they are displayed. 



Output 



Transient dumip takes control of the system 
when a program check occurs. If the output 
device fails, message 



4C24A NO I/O TO OD 



FDAIDTDT 



FDAIDTDT collects and writes, en an 
unlabeled tape, the contents of the general 
registers, the first 144 bytes of real 
storage, the PTA, and the LTA. Control is 
obtained from the supervisor and the 
records containing all areas are written on 
tape. Output from PDAIDTDT is formatted 
into printable characters by the PDLIST 
utility program. 

If the channel program for the magnetic 
tape unit cannot be activated, ccntrol 
returns to the supervisor. If the tape 
unit is off-line or not ready, the message 
4C24A is issued on SYSLOG and the system 
waits for an END key response when the tape 
unit is made ready. 

Each area is blocked, formatted for 
cutput, and written. There is nc loss of 
data due to overflow since the I/O new PSW 
is altered so that ccntrcl is always 
returned to PDAIDTDT until all data is 
written. 
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TABLES USED BY PDAID 



Byte 
PDAREA 
8 
16 
24 
32 
40 
48 

56 

64 
72 
80 
88 
96 



PDAREAND j FDINTRHK 

— I + 4 ^^ 4 — 4»„^4 

PDSIOHK I PDTRANHK 

^ 4 4 4 4 4 — 4 4 ^ 

PDFLTHKl I PDFLTHK2 

— 4 4„ — 4 ^4„ — 4 — 4 4 ^ 

Reserved | Register 9 
^^ — 4 4 4 4 4 — 4 4 ^ 

Register 10 | Register 11 
— 4 4 4 4 4 — 4 4 

Phase Name 

^ 4 4 4 4„^ — 4„^4 4 -, 

VER I lyiODl LCG [Output |IGN1/TRC1 

I I cuu I cuu I cuu 
|. 4 4^„^4 4 — ^^4 — 4 4 

IGN2/TRC2I IGN3/TRC3 | Alternate Area 

cuu I cuu I Start 
|. 4 4^ 4^„_^4„„^4 — 4 4 ^ 

Alternate Area End | CHANQ PTR 

4 4 4 4 4 — 4 4 

PRT1|PRT2|PRT3| PRT4 | PRT5 [Reserved 

j. 4 4 4 4„^^.4„_4 4^^^™^ 

Reserved 
4 4 4 4 4^^«4 4 

Reserved | OPT | Reserved 

X X X X X X_ X 

Entries 



\ 



Figure 16, Standard Preface in the PD Area (Part 1 cf 2) 
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Displac ement 

0-3 

4-7 

8-11 

12-15 

16-19 

20-23 

24-27 

28-39 

40-47 

48 

49 

50-51 

52-53 

54-55 
56-57 
58-59 

6 0-63 

64-67 

68-71 

72-76 
77-90 
91 

92-95 
96-n 



Labe l 

PDAREAND 

PDINTRHK 

PDSIOHK 

PDTRANHK 

PDFLTHKl 

PDFLTHK2 



Phase Name 

VER 

MOD 

LOG 

Output 

IGNl/TRCl 
IGN2/TRC2 
IGN3/TRC3 

Alternate 
Area Start 

Alternate 
Area End 

CHANQ PTR 
PRT1-PRT5 

OPT 



Des c ription 

Address of end of PD Area 

Address of interrupt trace hcok ♦ 

Address cf START I/O hcok * 

Address cf transient dump hock ♦ 

Address cf F/L trace hcok 1 ♦ 

Address cf F/L trace hcok 2 ♦ 

Reserved 

Save area for registers 9, 10, and 11 

Phase being run 

Version nuirber in hexadeciiral 

Modification level in hexadeciiral 

Address cf systeir. log device 

Address cf output device 

Address (es) of devices to ignore or trace 

Start address cf alternate area 

Ending address of alternate area 

Address cf channel queue pointer for 
output device 

Partition (s) to be ignored *♦ 

Reserved 

Option byte X'OO* = TRC device 
X«80' = IGN device 

Reserved 

Entries 



Note: The address of the PD Area is found at SYSCOM + X'48' 

* A hook is coding introduced at supervisor generation. The coding 
normally branches around itself. The initializaticn makes the 
branch instruction a NOP to allow a PDAID function to be 
performed. 

** The initializer inverts the logic. When the user specifies a 
partition (s) to be traced, PDAID enters the partition (s) to be 
ignored in the standard preface table. 



Figure 16. Standard Preface in the PD Area (Part 2 of 2) 
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SWITCH 
Bits 12 3 4 5 6 7 



-► Reserved 

-► Card Input 

-► IGNORE and TRACE Parameters Read 

H^ Ignore Alternate Area 

-► 'GO' Parameter Acceptable 

-► Console Typewriter Input 



KEEPSW 
Bits 12 3 4 5 6 7 



X'00'= TRACE 
X'80' = IGNORE 



PRTSW 
Bits 12 3 4 5 6 7 



-.► Reserved 
-«*. 50 \ 



40 
30 
20 
10 
00 



See Figure 19 for 
correspondmg partitions 



RTNSW 
Bits 12 3 4 5 6 7 



Reserved 

GSVC Trace Called 

QTAM Trace Called 

Reserved 

Fetch/ Load Trace 

I/O Trace 



CDTYPCRX 
Bits 1 2 3 4 5 6 7 



Typewritten Card Correction Read 
Reserved 
Last Card Read 
Count - Oniy Parameters 
Partition Needed 
Multi-programming System 
or Batch Job Foreground 
System 



Figure 17. Switches Used by PDAID 















PIK value when number of partitions = 






PIK 




1 


2 


3 


4 


5 


F4PIK 
F3PIK 
F2PIK 
F1PIK 


FF 




FF 


FF 


FF 


FF 


20 


FF 


FF 


FF 


FF 


20 


30 


FF 


FF 


FF 


20 


30 


40 


FF 


FF 


20 


30 


40 


50 


1 W I // 

Before Initialization After Initialization 

Kats: Partition idsntif.ers (PlK^lues) for supervisor and background are always 00 and 01, respectively. 
Therefore, they are not stored in the PI K table for testing. The partitions corresponding to the PI K values 
are shown in Figure 19. 





Figure 18. PIK Table in PDAID Phase 



PIK 
Value 



^ ^ 

Partitions ignored when nuirber 
of partitions = 

12 3 4 5 



50 



40 



30 



h 



20 
10 



h 



00 



-^ 



+ 



BG 



SP 



Fl 
BG 



SP 



Fl 



F2 



BG 



SP 



Fl 



F9 



F3 



i— + 4 



BG 



SP 



Fl 



F2 



H 



F4 

BG 



H 



SP 



Figure 19. Partition Identifiers 
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Chart AA. PDAID Initializer: Determining the Function 



* * 

* PDAID * 

* * 



INITIALIZE 

THEEE BASE 

EEGISTEBS 



* ♦ 

* B2 * 



B2 ♦. 

. ♦ *. 

XX 

PABAKETER 



«*«#4'4>**** 



♦♦♦**C 1 ♦**♦♦♦**♦♦ 
♦INITETN AD* 

»_♦-♦_«_*_♦_♦_♦_♦ 

♦ EEL ADCONS * 

* AEEA GENID. ♦ 
*DET TABLE SIZE * 



ASKUAID 

TfPOaTET AG 
♦_*_♦-. *_*_♦_♦_♦_* 

•PDAID=« 
« ♦ 



TYPINHTH AG 

BEAD 

* EESPONSE * 



* * 

* 83 * 

* * 
♦ *♦* 



TYPOOTET AG 
♦_♦_ ♦_ ♦_ *_ *_ ♦_ ♦_ 4< 

HISSING 
♦ KEYiOBD * 

:tt:tej(<*3|c* * 4«4:* ****** * 



**#**C3** ******** 



.* I/O, *. 

SYC, P/L, *. 
QTAB TEACE . 




* * 


YES 


♦ POINT TO * 


♦ . . . . 


* KSG 1 * 


% OR TD .* 




* 4C10D * 


*. .* 




* PDAID= * 


♦ . .* 


X 


:(e*4E******** ****** 


* NO 


***** 






*AB * 


***♦ 




* B1* 


* * 




* * 


* D3 *.X. 




* 


* * 




ITRTN 


**** 


X 


FTETN 


X 


♦*D2**#**** 


GTRTN 


♦**D 3**** ******** 


TCEN OFF * 


QTBTN 


TYPOUTRT AG 


SSITCH * 




♦_♦_♦_*_♦_*_*_*_* 


INDICATING 


* 


PRINT 


TPACE ♦ 




* MESSAGE * 


* SELECTED * 










***************** 



* * 
♦INDICATE RESET * 

* OF HOOKS IN * 

* SOPERYISOR * 

* * 
********* ******** 



REFERENCIS 
TO AACa: 
ACC«*. AHf4 



*****cn ********** 

* * 

* POINT AT * 

* TRANSIENT * 

* NAflE * 

***************** 



STORE REG'S 



**** 

* * 

* B5 * 



IS *. NO 

AAA .*. .. 

.AVAILABLE.* 



E2 ♦. 
* CARD 
INPOT 

SSITCH 



.* RESPONSE 
*. OB END 
*. *K1 



♦RESPONSE ***** 
*AE * 
* ftl* 



* CONSOLE * 
* IHPDT * 

* SilTCH * 
*********** 

*♦** I EEFEfiENCIS 

* * .TO AAH1: 

* * *.X, AEB5, AEF5 

* * . AEH5 
**** X 

WHICHONE .*. 

H1 *, 
.* CARD ♦. 
,* INPUT *. NO 
*. SWITCH .*.,. 
*. ON .* 



*****j-| ********** 

* GET * 

* PDAID= ♦ 

* PAEAMETEE ♦ 

* FBOM PARAH * 

* LIST * 
***************** 



FIRST 

TIKE 
THBOOGH 



**Q2******* 

* SET * 
FSTIHSW 

TO TAKE NO 
BR LEG 

♦ * 
*********** 



*. 
*. 
X 
**** 
n * 

f B3 ♦ 
t * 

**** 

ASKAID 

***j2************ 
TYPOOTET AG 

*_*_*_*_*_*_*_*_* 

tICIOD 
* •PDAID=« * 

***************** 



♦ B2 * 

* * 
♦ *** 

♦K1 
THIS SELECTION IS 
MADE IN THE SUBROUTINE 
MENTIONED IN THE 
PREVIOUS BLOCK. 



***K 2****** ****** 
SHETKSG AG 

*_*_*_*-*,*_*_*_* 

BSD 
* PARAMETER * 

***************** 






**♦* 

♦ B2 * 

* * 
**** 



*****Q3 ********** 

* POINT AT * 

* 'INVALID * 

* PARAMETER * 

* SPECIFIED' * 

* * 
***************** 



**** 

* * 

* D3 * 

* * 



.* DOES *. 

PPOOL 

BELONG TO 



*****Q(i ********** 

* * 

* LOAD STJRT * 

* AND END ADDR * 

* OF AAJ * 

* * 
***************** 



*****f{(^ ********* 



***************** 
'. X ....... . 



* POINT I^T * 

* TRANSIFNT" * 

* NAME * 

* * 
***************** 



*****KU ********** 



**** 

* * 

* B5 * 

* * 
**** 



.* OOFS * 

.PPOOL BELONG 
*. TO SD .* 



.♦SHOULD ♦. 

* AAA * 

BE RELEASED 



***;p 5**** ****** 

SVCSt* * 

(T'REEREALy « 

RELEASE * 

REAL STORAGE * 

OF AAA * 

*************** 



* CLOSE * 

* CARD * 

* Fir. E * 

* * 
***************** 



****{;i^********* 

* SVC Itt * 

* FOJ * 

* * 
*************** 
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chart AB. PDAID Initializer: Initializing the Function (Part 1 of 3) 



***** 

♦ AC ♦ 

* 15* 



*♦*♦♦ 
♦AA ♦ 
♦ C2^ 



QTRTN 
ITETM 
PTBTN 
GTRTN 



♦ SET TRACE ♦ 
♦TTPE IN PHASER 

♦ NAHE AND 
♦ INITIALIZE ♦ 

♦ »RAP HODE ♦ 



♦A2 
THIS 

DECISION 
MADE BY 
TYPINRTN, 
CHAFT AG. 

**** 



**** 
ASKODQST X 

TYPODTRT AG 

MESSAGE HCIID, 

♦ 'OOTPOT DEVICE* 

COO' 



4i**>|iA34t4i*4>*«4t*4< 

* * 

* SVCSCD ♦ 

* ♦ 

■$tm************* 



***** 
♦AC ♦ 
♦ B5* 



**** 

* * 

* B5 ♦.X 

* * 
**** 

PRTGET .*. 

B5 ♦. 
.♦ ♦. 
.♦GSfC. P/L. *. NO 
♦, OR QTAH TS. .♦... 



.* 



D1 ♦. 
.♦OOTPOT ♦. 

DEVICE 
PARAMETER 
. READ 



*tlf:lfi^^2'\'*'********* 

♦ HOVE CARD ♦ 

♦ PIRftifTEP ♦ 

♦ TO TYPE-IN ♦ 

♦ AREA ♦ 

♦ * 

«*4t«4t«4< «:♦*♦♦♦♦♦♦♦ 



IS IT 
TRANSIENT 
. EOHP 



♦ SET ALL ♦ 
PARAMETERS 

RECEIVED 
SBITCH 

♦ -SWITCH- ♦ 



♦ F1 *.X 



♦*** 
COO RES P 

ti),itf^2****** ****** 
TYPINHTN AG 

BEAD 
♦ RESPONSE ♦ 

iifif****i^********** 



**** , **** 

♦ . ♦AJ ♦ 

C3 ♦.X...* E1* 



♦ RODTINE 
PREVIOOSLY 

♦. ENTERED . 



♦ INDICATE ♦ 

♦ ROOTINE 
PREVIOOSLY 

♦ ENTERED 

4t * 



♦ CHANGE ♦ 

iSftCE 

MESSAGE TO 

IGNORE 

♦ 4C15D ♦ 



**** 

* * 

♦ R5 ♦ 



. .♦ 
♦ YES 



**C^******* 



4[«**4i9t!i«c*4c4c4i 



**J)H******* 

* INITLZ * 
CNTRL=6 

AND STORAGE 
POINT'^P 

♦ ♦ 



.♦. FIN 
F2 ♦. 

♦ *, 

ANY ♦. YES 

EISPONSE .♦ 

♦A 2 . ♦ 

♦ . .♦ 

♦ . .♦ X 


DSVCS X 

**f2******* 

* CHANGE ♦ 

♦ KEEP SW ♦ 
♦ TRACE=X«00' ♦ 

♦ IGNORE= ♦ 

♦ X'80« ♦ 
*********** 


* iio ♦**♦* 




♦AD * 
* B1^ 
X ♦ ♦ 
♦*♦*♦ * 




♦AC ♦ CKOOTOD 

%*r ^^^iim^3*i******** 



YES .♦ IS IT 
...♦. TRANSIENT 
♦. DOMP 



X 

♦AC ♦ 
♦ A1 + 



♦ STORE ♦ 

♦ WORK ♦ 

♦ REGS ♦ 

♦ * 
***************** 



*****^2********** 
♦GETSVCS AJ^ 

♦-♦«.♦_♦-*-♦_♦_♦_* 

♦ GET SVC ♦ 

♦ TRACE OH ♦ 

♦ IGNORE ♦ 
***************** 



*****j2********** 

♦ * 

♦ RESTORE ♦ 

♦ WORK ♦ 

♦ REGS ♦ 
>l< * 
***************** 



*****QH ********** 



***************** 



r. 

*****fin********** 

♦ PREVENT ♦ 

♦ CHANGE ♦ 

♦ IN OPTIONS ♦ 

♦ SW=X»10« ♦ 

♦ * 
***************** 



*****j H********** 

♦ DECREMENT ♦ 

♦ STORAGE ♦ 

♦ POINTER * 

♦ AND ♦ 

♦ CODNTEE ♦ 
***************** 



**** 

* * 

♦ C3 ♦ 



♦ K3 
SEE FIGORE 18 
FOR PIK VALOES 



INITPTKS X 

*****a********** 

♦BOILD PIK TABLED 

♦ ACCORDING TO ♦ 

♦ NOMBER OF ♦ 

♦ PARTITIONS ♦ 

♦ ♦KB ♦ 
***************** 



*****jyc:,********** 
♦PRTQOBS AK^ 

♦ TRACE ♦ 

♦ PARTITIONS^ ♦ 

♦ «»P12n ♦KS ♦ 

***************** 



**** 

* * 

* R5 ♦ 

**** 



*****1^S********** 

♦ MOVE CARD ♦ 

♦ RECORD ♦ 

♦ PARAMETER ♦ 

♦ TO WORK AREA ♦ 

♦ * 
***************** 



***** 
♦AJ ♦ 
♦ C3^ 



*K'=. 
IF NON-MPS, MESSAGE 
IS ISSOBD TWICE: 
I" MPS MESSAGE IS 

ISSOBD FIVE TIMES. 



42 DOS/VS Serviceability Aids 



Chart AC. PDAID Initializer: Initializing the Fxincticn (Part 2 of 3) 



REFER ENCIS 




>t.«4t« TO kCh'iZ 




♦ * KBV2. ABGI 




* * *. . . 




* ♦ 




♦*♦♦ X 




R&AGET .*. 




A1 *. 




.* *. 




.* IS IT *. lis 




*. TRANSIENT .*.... 




*. DtJHP .♦ 




♦ . .* 


**** 


♦. . ♦ X 


* 


* NO ***** 


* B2 


*»J * 


* 


* G2* 


♦*♦* 


* * 





♦♦♦♦ 

* ♦ 

* B3 * 

* * 
♦ ♦*♦ 



**** 
*AD * 
* f;2 *. . 



**** 

* * 

* BS ♦. X, 



ASKAAA 

***ct ************ 
TfPOlTBf AG 

♦_♦_♦_♦-.*-♦_*_)»_* 

HC27D 

* »ftA= ♦ 

**««*«:|rj|i4c*3|t*4.4t**4< 

**** 

* * 

* D1 *.X. 

* * 
*♦♦» 

BEADAAA I 

***{)! 4*****4<***** 
TIPIHRTB AG 

GET 

* RBSPOHSE * 

******** *******4<* 



END 

OF 

-PAIAHETEE. 



PARAMETER 
FOLLOHED 
.BI BLANK . 



*HAIE PARAMETER * 

♦ PRINTABLE * 

* AND BAFE * 

♦ REQOESTED * 

* SIZE EVEN * 
ilt*.*-^t ************ 



****«!; 2********** 



CHKAAA6 

***B'J ************ 
TYPOUTRT AG 
♦_♦_♦_♦_♦_♦_*_♦_♦ 

...X ac70F 

* nOPLICATF, * 
RPQOEST 

:|c* 4e*** !(c# **«*:|t* 4< * * 



CHKAAA8 

***Ct* ************ 
TYPOOTRT AG 

*_♦«*_ *_ *- ♦„♦_*_* 

. ..X i*C5?F ..X 

* NO SPPCF * 

AVAILABLE 

*:tE3|c:|t«*]|(**4c*:|i***4E]|< 



I/O 

OP OTAM 
TRACE 



* cs *.x 



**♦* 
FINDT'5NS X 

*#*CC;****:|it«>|c4<*4<# 

GKTIGNS AH 

*_♦_♦_*_*_♦_*_*_* 

GET IGNORES 



*iif*^2********** 



.* AAA ♦. NC 




* CONVERT NO. ♦ 


*. SPICIFIID .* 






♦ OF EEQOESTED * 

* BLOCKS TO * 


*. . * 






*. .* 






* PAGES ♦ 


*. .* 




X 


**i|t]|c:4c**********3^* 


♦ YES 




!<*** 






♦ 


♦ 






* 


B5 * 






♦ 


* 






**** 










X 


CHKAAA X 






* 


*-^t**f'\********** 






F2 *. 


* * 






. * *. 


♦CLEAR WORKARIA * 






.* BLOCKS *. 


* AND STORE * 






*. SPECIFIED .* 


* BEQDESTED * 






♦. .* 


* AAA * 






*. .* 








*. .* 
♦ NO 


* * * 








* G1 *,X. 








* * 








iHf*^ X 








CHKAAA1 .*. 






X 


61 *. 






**4i**G 2 ********** 


.* *. 








.* IS *. NO 




♦ STOFE * 


*. CH AH ACT IP .* 






♦ RFCOESTED ♦ 

* NDMBEl * 


*. HOMERIC .♦ 







X 

♦** 
* 
* B2 



♦♦** 

X 

***J'| :!(******#*** 

TYPOOTRT AG 

♦-*_♦_♦_*-.♦_♦_»_♦ 

HC17D INVALID 
* PARAMETER * 

SPECIFIED 
*4i************** 



nt*** #{{2 ********** 

* * 

* SET INDICATOR * 

* IF SVC 55 * 

* IS GATED * 

* ♦ 

4c4c4t* >!>«:)< i4<:tr******** 



* GET REAL * 

* STORAGE FROM ♦ 
*MAIN PAGE POOL * 

****** *4>:(r:|ij|<****** 





* SAVE START * 






* ADDRESS * 






* OP AAA * 






* * 






*#** * ]|<#** *« iltitc** «:)< 






**** 






* * . BEFESENCIS 






* * *. X. TO ACF3: 






* * . AHC2, AHF1 






**** X 






.*. 


CHKAAA*^ 




B3 *. 


***«*pU**!t<*3|<*4c*** 




.* *. 


* * 




.*LESS SPACE *. YES 


* HAKE STZT, * 




♦ . THAN .* 


..X* AND STUPT * 




*. EEQOESTED.* 


* ADDPBSS OF * 




*. .* 


* AAA PRINT-ABLE * 




*, .* 






* NO 


■ 




X 


CHKAAA5 X 




***F3 ************ 


*t:*ft^1f:^tt ******** 




TYPOOTRT AG 


TYPOOTBTN AG 


S 


*_*_♦_.♦_*_♦_♦_*_* 


*_♦«♦-♦_♦_*-.#_*_* 




4C50E 


«»C51D SIZE OF 




* ADDRESS * 


* AAA=ADDRESS OF* 




OF AAA= 


AAA = 


X 


****** ********:|i** 


*«:tc*4t*j|r********** 


***♦ 






* 


***♦ 




J1 * 


* * 




* 


* G3 *.X. 




**** 


* ♦ 
*♦*♦ 




CHFAAA3 X 


X 




**3(.**Q3 4c********* 


***Q(t ****** ***#>t<4< 




* * 


TYPINPTN AG 




* CALCOLATE * 


»_*-*_♦_♦_♦-.*_*_* 




* END ♦ 


GET 




* ADDRESS OP * 


♦ RESPONSE * 




* AAA * 






**«(** *#******#«< ]|l;^ 






X 

**** 






* * 


y 




* B5 * 


.*. 




* * 


nu *. 




***« 

I 


.* *. 

JVALID* ♦. 
...*. RESPONSE .* 
*. .* 
*. . * 
*. . * 
* END 



OR 



♦ #J5«^*****)(5* 

* * 

* INITIALIZE 
* AND 

* STORE 

* IGNORES * 

*****it:*m*** 



IGNORES * 


YES 


CRPTED OR 


.*. . . . 


F-IRST .* 




.TIME .* 




*. .* 


X 


* NO 


***** 




♦ AB * 






* A5* 


*.X 




* * 

* 

PRTGET 


r 




F5******* 




* 




CHANGE * 


IGNORE 


* 


TO * 


TRACE * 




iK«9|<j)c:4t4if:4t* 




X 




**** 





* G3 * 

* * 
*♦** 
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Chart AD. PDAID Initializer: Initializing the Function (Part 3 of 3) 



***** 

* * REFEfiENCIS 

* ** TO ADB1: 
* * ABE1, ABF2 



CKOOTOD X 

****!{(£ 1*** ******* 

*PARftMCNT ftL* 

*_♦_*_♦.*»*_♦_#_♦ 

* INTEBRUFT * 

* EESPONSI * 

* * 
***************** 



X 




,* . 




*. 


D2 


*. 


. * 


*. YIS. 


NO .* DE 


*H1 .* 


,..*. sap 


.* 


*. 


. * 


*. 


. .* 


* 


* NO 




!x 





ISSUE * 

MESSAGE * 

*H1 * 

********».***** 



**]T.2******* 

* SET ALL * 

* PAPAKETERS 

RICEIVED 

* SWITCH 

* -SWITCH- * 

*«*******:«< :4t 



* * 

* INITRTN * 

* * 
*************** 



* BOILD SYS LOG * 

* AND SYSRDP * 

* CC«if'S * 

* * 

*************«!(<** 



*****C3********** 

* * 

* POINT TO * 

* COMMONICATION * 

* REGION * 

* * 
*r**** **)(<********* 



ONE 
PJRTITION 
. SYSTEM! . 



**E3******* 

* TORN ON- * 

* MULTI- 
PROGRAMMING 

* SWITCH 

* * 

i«:**:|c*:(c***** 



*****p<3 ********** 



*H1 

IF DELIMITER/CHARACTER IS 

IN ERROR OR DEVICE IS 

NOT SUPPORTED, THEN 

ISSUE 'IN7ALIU FAKAflJt'TtH 

SPECIFIED", MESSAGE »C17D 

IF THE DEVICE IS NOT 

IN THE PUB TABLE, 

THEN ISSUE 'CUU NOT 

IN PUB TABLE', MESSAGF 4C20D 



.* TEANSTENT *. YES 




* GET ADDRESS 


*. DUMP .*. 






* OP 


*. . * 






* SYSCOM 


* . .* 






* 


*. . * 


X 




*************** 


* NO 


*** 








* 








* G5 








* 








*** 




X 


X 




AP0UND13 .*. 


♦****Q 2 ********** 






G3 *. 


* * 






.♦ *. 


* PUT DEVICE * 






.* FIND * 


* INDICATOR IN * 






*. PDAPEA 


* PHASF NAME * 






*. ADDRESS .* 


* * 






*. .* 


***************** 






*. .* 
* NO 


X 








***** 








*AC * 








* AS* 








* * 






X 


* 






****(]3******** 


OPTIONS 






* SVC 6 

* CANCEL 



**** 

* * 

* rS * 

* * 

**** 



*****r5**** ****** 

* CLEAR AREA * 

* USED BY * 

* TNI'^IILIZBR * 

* AND POINT * 

* TO COMREG * 
***************** 



*****f)S ********** 

* * 

* SAVE * 

* SYSr.OG * 

* 'CUU* * 

***************** 



****175********* 

* RPTURN TO * 

* CALLING * 

* ROUTTNE * 
*************** 



**** 

* * 

* qs * 

* * 
*♦** 



*************** 



* H5 *.X. 

* * 
**** 

T 
***H'i *********** 
TVPTNRTN AG 

*_*_*_*_*_*_*_*_* 

GET RESPONSE 

* * 

***************** 



***F^c:, ************ 

TYPOUTR'T' AG 

*_*_*_*_*_*-.*_*_* 

TSSUE WSG tlC27D 
* 'INVALID * 

PARAM SPECIFD' 

***************** 



**** 

* ♦ 

* Rt; * 

* * 
**** 
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Chart AE- PDAID Initializer: Card Input Routine 



BEFEBEMCES 
TO &EA1: 
RAF1, JIFHI 
AFK3 



THIS DECISION IS MRDE IN 
SDBROOTINE MENTIONED IN 
PREVIOUS BLOCK. 



B1 *.l 



**** 

CRDINP X 

* TDBN ON * 
* CARD 

* INPDT 

« SWITCH 

* * 



_*_*_♦«♦_*_# 



GET CARD - 
* RIAD CARD » 

FROH SISIPT 



•aC28D» - OUTPUT DEVICE 
AND AAA PARAMETERS 
PRESENT. WHICH ONE 
SHOULD BE KFPT 



***** 
*ftF * 
* G1* 



TRC *. NO 

PARAMETER .*..] 
. BEAD .* 



****RtJ******i 

* N0DBL1 

* 

************: 

**** 



.♦SVC TT*. 

PAPAMFTER * 
R'PAD FROM 
. CARDS .* 



.*S?C IGN*. 

PARAHFi'BR * 

REAT^ FBOn 

. CARDS .* 



NonBr,2 



IS TT 

TT'ANSTENT 

nD*!P 



.♦onT^JUT *. 
. *nEVICE AND 
.? AR=SPEriFI- 
*. CATION . 



_♦_♦-.*_* 



*B2 

*****#:*** 



D1 *. 

* ♦ 

/* CARD 



*********** 



♦ *** 

* * 

* D3 *.X 



LOGDBLER 
DRLSTYPE 

♦♦*D3 ************ 

TYPOUTRT RG 

*_ *_ *_ *_ *_ #_ »_ *_ * 

* *J1 ♦ 

***************** 



***;gl ************ 

TYPINRTN A3 

*_*_*_*_*_*_*_*_# 

READ 
* RESPONSE * 

****** *«******])( 4e* 



*♦** 

* * 

* DU *.r 



**r»i»******* 



********** 



***************** 



***************** 



A1* 

* * 

* 
Y1CHK 



*****pl ********** 



***************** 



ALL 

COLUMNS 

CHECKED 



**** 

* * 

* B1 * 

* * 
*♦** 



*J1 

ISSUE f5ESSAGE 4C23D, 
•TRACE' AND 
IGNORE PARAMETERS 
PRESENT. WHICH 
ONE SHOULD 
BE KEPT. 



.* CCNTROL *. YES 
*. CARD .♦... 
*. BEAD .* 

*. .* 


*. ,* 1 


* NO * 


* 


* 


NOCTLCD . * 
CDERRLOG 

X 
***H 2****** ****** 
TYPOUTRT AG 
*_*_*_*_*_*_*_*_* 


•CCNTROL CARD 
* MISSING' * 
MESSAGE aC21A 
***************** 



F3 


* . 




***Flt********** 


* *, 




TYPTNRTN AG 


ANY *. 


NO 


*_ *_ *_ *_ *_ *_ *_ *_ 


RESPONSE 




RFAD 


*A3 .* 




* PPSPONSF * 


*, .♦ 






*. . * 


I 


***************** 


* YES 


**** 
♦ * 








* D3 * 








* * 








♦ *** 


X 

.* . 

GH *. 

.* * . 

.* END OR *. 

*. RESPONSE .* 



*****FS ********** 



***************** 



***** 
*A» * 

♦ H1* 



*****PS ********** 



***************** 



***J 2 ****** ****** 






J3 *. 


J« *. 


SPCLNGED AG 






.♦ *. 


.* *. 








.* TRC *. NO 


.* IGN 


BEAD 






*. RESPONSE .* 


X*. RESPONSE 


RESPONSE * 






*. .* 
*. .* 


*. .'' 
*. .* 


************** 






*. .* 
* YES 


*. .* 
* YT^S 


X 

.*. 




KEEPTRC X 


KEEP IGN X 


K2 *. 






**K3******* 


**Kt» ******* 


.* *. 






* * 


* i 


* ANY *. NO 






* CLEAR * 


* CLEAR 


RESPONSE .*.. 






* 'IGN' * 


* "TRC 


*. *A3 .* 






* BUCKET * 


* BUCKET 


*. .* 






* * 


* 


*. . * 


X 




*********** 


*********** 


* YES 


**** 






* 




* 






* 


B1 


* 
* 




X *. 


X * 




X 


**** 


**** 




**** 


* * 








* * 


* D1 * 








* Rl» * 


* * 








* * 


**** 








**** 



*KS 
IF RESPONSE TS 'IGNORE' 
CLEAR TiTACE PARAMETERS; 
JiND IF 'TRACE', CLEAR 
IGNORE PABAf'ETERS. 
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chart AF. PDAID Initializer: Keyv;ord Verification 



♦*♦♦* 

*AE ♦ 

* El* 

* * 



A1 *. 








* 










* 


YES 




PDAID= 


*' 


♦. . . . 




.* 






**♦♦ 


*. . * 




X 


* * 


* NC 




**♦* 


♦ B2 * 






* * 


* * 






* HI * 


**♦* 



**s(t*tg 2*** ******* 
*PABAMCNT AL* 

^-t-*~* -*•'*-*-*-* 

* GFT LENGTH * 

♦ OF PARA1ETEE * 



♦ **♦ 



*ilf*i^***t** 



* B2 * 

* * 



* ♦ 

* B3 * 

* * 



*PARAMCNT AL* 

*_*_♦_♦_♦_#_*_*_* 

* GET LENGTH * 

* OP PARAMETEB * 

* * 



* * 

♦ *** 



* * 

*CLERP PARBfETRP* 
♦FIELD AFD CHECK* 

* PAPJWETER * 

* * 



* ♦ 

* BADCARD * 

* * 



**** 

BADCARD X 

4<««;t<«f3S ********** 

* * 

* RESTORE DATA ♦ 

* AS IT WAS * 
*REFORE TESTING * 

* * 



YES .* IS IT 
...*. TRANSIENT 
*. DUMP 



D1 * 
AAA = 



VALID 
LENGTH 

♦B3 



NO .* VALID 
...*. LENGTH 

*. *B2 



*****0 2 ********** 

* ♦ 

* POINT * 

* TC NEXT * 

* CCLUMN * 

* * 



■^litcj^ifiitD^ ********** 



^i*************if*^ 



* mi * 



X 
**♦* 

* * 

* HI * 

* * 
**** 



**** 

* ** 

* F2 * 

***** 



***** 
*A2 * 
* D2* 



***************** 



* P3 * 

* * 
**** 



*****f^2********** 

* STORE IN ♦ 

* PAPAMFTER * 

* LIST * 

* * 

***************:«<* 



***«*(] 3**** ****** 

* * 

* POINT AT * 

* NEXT COMMA * 

* OR BLANK * 



«**«*** 



********* 



***************** 

* SHIVT SAVFD * 
*S?CS AND STORE * 

* NEW ONlB'-POINT * 

* AT NEXT COHH? * 

* OR BLANir * 
*********i,****t** 



* NO 




***** 

♦AE * 
* A1* 
* * 

* 


X 




CRDINP 


. *. 






Jl *. 






. * *, 






.* NEXT ♦ 


. NO 


*. COLDMN A 


* 




*. COMMA .* 






*. .* 






*. . * 




X 


* YES 




**** 

* * 

* 85 * 

* * 
**** 


X 






*****K1 ********** 




* 






* POINT AT 






* NEXT ENTRY 






* ON THE CARD 







.x,x, , 

X 

**** 



*Jt» 

ISSUE MESSAGE UC22A 
' INVALID FEYWORD OR 
PARAMETER, ENTER 
CORRECTED CARD VIA 
SYSIPT OR SYSLOG' . 



***************** 



**** 

* * 

* B2 * 



* FIND fHE * 

* END OF * 

* THE DATA * 

* * 
***«!4t ****** ****** 



*:tc**;(cf)^ ********** 

* CALCOLATE * 

* NHMBER * 

* OF DATA * 

* CHARACTERS * 

* ♦ 
***************** 



.* IGNORE 
*. DEVICE= 
*. 

*. .* 
♦ . . * 
* NO 


* 
* 


YES 

*. . . 






**♦* 

* F2 * 

* * 

**** 








**** 

* * 

* F3 * 

* * 
**** 






.* TYPED * 

*. CORRECTION 

*. READ .- 

*. .* 

*. . * 

* NO 


X 

KEY^CHK .*, 

PI *. 
.* * 
.* TRACE 
*. DEVICE= 


* 
* 

* 


YIS 
*. .X 

3 
*=( 

* 

* 

* 
♦ 


It** 
33 
¥*% 


X 

F2°'**. 
. * * 
.* IS IT 
*. TEANSI^NT 
*. LUMP 
*. . * 
*. .* 
* NO 
♦ 
* 
* 

KEY6CHK .*. 

G2 ♦. 
.* * 
.* TRACE 
*, PAETITION= 


♦ 
* 

♦ 
* 


K EY 1 

YES 
*. , . . * 

X 

***♦ 

* ♦ 

* B5 * 

* * 
**** 

NO * 
*. . . . *. 


X 

*CHK .*. 
F3 *. 
. * *. 
* SVC *. NO 
TRACE= .*.... 






X 

***T7«^******* 

* WRITIS BAD 
CAPD ON 


*. 

*. . * 
*. . * 
* NO 

x! 


*. ,* 
*. . * 
*. .* 
* YES 

i=***G3********** 
SHIFT SAVED * 






* CONSOLE 

*************** 

xl 


KEYIiCHK .♦. 

G1 *. 
.* * 
NO .♦ 
. . . * . • GO • 


YES 
*. . . . 


KEY15CHK .*. 

G^ *. 
.* *. 
NO .* SVC *. 
...*. IGNORF= .* 
* . . * 


T 

.*. 

GS *. 

NO .*' I/O 
...*. COMPLETTF 



RRITB 
fTNDER BBD 
CHARACTER 



************ 



**** 

* * 

* K3 * 

* * 
*♦** 




*, .* 
*. .* 
* YES 


^^^^«^2fK3*l********** 
TYPODTRT AG 
♦_*_*_♦_*_*_♦_*_♦ 

* *JU * 


♦ RFTOPN TO * 
♦CALLING ROOTINE*X.. 

* * 
*************** 


swn .*. 

R"^ *. 
. * * 
Tl^S .* ENTERED 

*. AS A SDB- 

*. ROUTINE 
*. . ♦ 
*. .* 
* NO 


. CRDINP 




X 

**** 

* * 

* K3 * 

* * 


***** 

*AE * 

* A1* 

* * 





% 



c 
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Chart AG. PDA.ID Initializer: Console Input/Oiatput Routines 



4>**ifAl ********* 

* * 

* TIPOOTBT * 

* * 



* GIT ♦ 

* LE8GTH CP * 

* FOLL MESSAGE ♦ 

* * 

ittHf^it:************* 



0i^*tfi2 ********* 

* * 

* SHHTMSG ♦ 

* * 



****lti********* 

* * 

* TfPINPTU * 

* * 
]|i# 4i * * * * « # * 4i * * 4c lit 

**** 

* * 

* nn *.% 

* * 
**** 

TYPIKRTN 

^liHl**^lf^^^*i|lm******* 

* SET OP 'OR * 

* HAXTinn * 

* LK»J6TH ♦ 

* RFSPONSw, * 

* * 



* * 

* SPCLNGRD * 

* ♦ 
*ik************m 



* SET ♦ 

* OP URITl ♦ 

* CCW * 

* ♦ 
ilf-^^t***********^^** 



!^4E:|<*4l*4t3tcitl!|l**4l4<*** 



i^1^■^^^^*■E'\********** 

* * 

* GET * 

* MEITE * 

* CCB ♦ 

* « 



««]»p 1 ltt**lt!«4<)|C#!|>atc** 



ilf*^************** 



■^i^ilf*Q■[*^l■^ti^t**** 

* * 

* RETORN * 

* * 

***iti0*ilf^i1t*ili**** 



**** 

* * 

* D2 * 

* * 
**** 



* SF''' * 

* OP READ * 

* CCW * 

* * 



.*. 








IGNRTN X 


*ns 


D2 *. 










THIS DEriSIOf 


♦ ♦ 










IS SHOWN -rn 


IS IT 


* 


TES 




♦ READ * 


THE Ff.OW CHARTS 


TRANSIEHT 




♦. . . . 




RESPONSE 


WHFRP ♦TYPETNRTN* 


EOBP 


* 






* * 


OCCORS. 


*. .* 










*♦** 


♦. . * 




X 




*]|ti|t4t 1(1:41** 4t*!|t*4!!4( #4141 


* * 


* NO 




***** 
*AH * 

* ?n* 

* * 






* i^S * 

* * 






* 
TRAHSPCH 




x 


.......... X.' 


X 




. *. 




LOGINV 


. ♦. 




E2 *. 






itin-^23************ 


Eft *. 


V 


* * 






TYPOOTRT ftG 


. * *. 


«**]|<T?S***>l<*4'«* 


RESPONSE 


♦ 


IBS 


m^*-*.*-*~*^*~*-* 


.* AUY *. NO 




TO ckm 




*........ 


t 'IK?ALID 


*. RBSPONST? .*..... 


* RPTORN 


FBBOR 


* 




♦ PRHTR SPECFD'* 


*. *n5 .* 


* 


♦. .* 






4C17D 


*. .* 


Unlci^t ********** 


*. .* 






****tt********ni**t 


*. .* 





EOJ 
NOMOHE X 

m.**Q2************ 
TYPOOTRT AG 

♦-.♦_♦-♦-♦-♦«♦_♦_♦ 

•INVALID 
* PRMTE SPECPD'* 
«C17D 

:t*1f!tt************* 



^,m**rf'j********* 

* S?C 6 * 

* CANCEL * 

*4<4t**«***4t**4t** 



.* RESPONSE *. NO 



**♦* 

♦ * 

* Eft * 



♦ *** 

* * 

* D2 * 
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Chart AH, PDAID Initializer: 
(Part 1 of 2) 



Get IGN/TRC Parameters ECJ Routine; Check Display Limits 



* GETIGNS * 

* * 



♦ ♦♦(I"! *«*******)(<*♦ 


C2 *. 


TYPOUTET AG 


.* * 




NO .*PAF?HETERS 




...♦. READ 


* *A3 * 


*. 




*. . * 


^,itl:*7^liF*=i^******>i-*** 


X 4. .* 




***** * YES 




*AC * 




* E3* 




* * 
* 




ONLIPS 


IGNEESP X 


X 


***£)-! ****** ****** 


*****r)2****** 


TYPINBTN ?G 


* 


*_*_*_*_*_*.*_*_* 


* SAVH 


BEAD 


* THE 


* SFSPONSK * 


* PJ1FAMETEB3 



************* 



NO .* ANY 
. ..*. RESPONSE 

*. *C3 



************* 



**** 

* * 

* PI * 

* * 
**** 



THCIGNIC 

***** PI ********** 

♦PAPAMCNT AL* 
*_*_*_*_*_*_*_*_* 

* CHECK CUO ♦ 

* PESPONSE * 

***************** 



*A3 

THIS MESSAGE IS 
EITHEF-- 
acl3D OR 4C1(4D 
DEPENDING ON THE 
USER RESPONSE TO 
THE FIRST MESSAGE, 
THE OTHER MAY, OR 
MAY NOT BE SUBSTITUTE 



*** REFERENCES 
* TO AHB«: 
** ABD5, AGF2 
* AKH2 



*C3 
THIS DECISION IS 
MADE IN THE 
SUBROUTINE 
MENTIONED IN THE 
PREVIOUS BLOCK. 



IGNORE 
OR TRACT- 
. OPTTON 
*. USED . * 



**fl^******* 



*********** 



LABELS THAT APPLY T-O 

THIS ROUfTHE ARE-- 

PlfRCHf 

P2TPrHK 

BG'TRCHK 

SVPPCHK 

CONVERT 

CHKSVT-^N 

CHKBGIGN 

rHKFai-^N 

CHf^FIIGN 
iJ'ETCON'' 



**************** 

**** 



* * *.X. REFERENCES 


* * .TO 


&HF14: 


**** .ADJ5 


AGD2 


ANSFCH K 




**P4******* 




* 


* 


* INITIALIZE 


* 


* PHASE 


* 


* NAME 


* 



. *. 
1 *. 

ANY '*. YES 
ERROR . * 


G2 *. 
.* ♦. 
.♦DELIMITER/ *. YES 
..X*. CHARACTER .*.... 


IGNTRCER 

*****Q3********** 

♦IGTRERCD AK* 
*_*_*_*_*_*_*_*_* 

. . . X^ ERROR ♦ 


*C3 .* 


♦.ERROR ♦CS.^ 


♦ POOTINE ♦ 



*********** 



***** 
♦AA * 
* Cl»* 



RETURN * 

* 
*************** 



*****jj2+* + * ♦♦♦♦♦* 
♦IGTRERCD AK^ 

*_*_*_*_*_*_*_♦_* 

♦ PRROR ♦ 

♦ ROUTINE ♦ 

♦ * 
***************** 



•ecu NOT IN 
PUB TABLE' ♦ 
MESSAGE 4C20D 
*************** 



***************** 



'INVALID 
♦ PRMTR SPECFD'* 
i4C17D 
***************** 



IGNRSPCD X 

***j3******** 

TYPINRTN 



***************** 



**** 

* * 

* PI * 

* * 
♦ *** 
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Chart AJ. 



PDA.ID Initializer: 
(Part 2 of 2) 



Get IGN/TRC Parameters ECJ Routine; Check Display Limits 



* ♦ 

* GETSVCS ♦ 

* * 



GETS7CS .*. 




B1 ♦. 




.♦ *. 




.♦ CARD ♦. 


YES 


♦. INPUT .* 




*. .* 




*. . * 




*. . * 


X 


* NO 


***** 




♦AB * 




♦ B3* 




* * 




* 




STCSCD 


X 




♦♦♦Q1********** 


** 


TIPOUTBT AG 




♦_*_♦_*_*_*_*_*_ 


* 


LOG QOESIION 




* 4C16D 'TEACE * 




S7C« 




4c:«c4c**«*:|e «*«4 4<*>l<'«> >|i 





****jS********* 

* * 

* SVCl^RRCD * 

* * 
********** H<**** 



* STORE TWO * 

* BYTE * 

* RESPONSE * 

* * 
***************** 



**** 
S?CCNVT X 

*****C3 ***♦♦♦**** 



**** 
SVCRESP X 

TYPINBTN AH 
*_*_*_*_*_*_*_♦_* 



***************** 



SET * 

CON¥ERSION * 

LENGTH * 

* 

*:tc************* 



CONVERT 
SVC TO 

BINARY 



****D (4 ********* 

* RETURN 

* TO CALITNG 

* ROOflNR 

*************** 



c; *. 

.* ifAS *. 
. *PHELIHINABf* 

K^SS«GR 
*. rOGGED .* 



**ns******-* 

* HA*"? * 

* DECTSTON AT * 

* SM 15 AN 

♦CH^CONnTTiOJJRL* 

■*RRN^H (YF-^^ * 

*********** 



***** 
♦AB * 

* C3* 



♦ ****F-|********** 



***************** 



SVCERB X 

*****P2***** 

♦SYCERBCD 



* LOG 

* PBELIfflNA 

* MESSAGE 

**♦****♦*♦**: 



E3 *. 

* 

ERROR 



****P3********* 

* RETURN 

* TO CALLING 

* ROUTINE 
*************** 



LOR QOT?STION 
* ttClfin 'TRACE 

s?c« 

***************** 



. *. 

G1 *. 

.♦ARE HEX* 

*DELIHITEES 

PRESENT 
*. *J2 
*. .♦ 
*. . * 


* 
* 


ERRO 

NC 

*. . , , 

X *♦ 


X 

***Q2****** 

TYPOUTRT 
*_*_*_*_*_*_ 

LOG THE 

ERROR 
REASON 
************ 


* xEs 




**** 

**** 




X 

**** 


X 

.*. 

HI *. 

. * * 








* * 

* D1 * 

* * 

**** 


♦DELIMITING 

QUOTE 
*. PRESENT 


* 
♦ 


NO 
* . . . . 







***************** 



**f:t^********* 
WFTORN T-O * 

rfLLTNG * 

ROUTTNE * 

************* 



*****j1 ********** 

* SFIP OVER HEX * 

* DELIMITERS * 

* AND STORE * 

* TWO BYTE * 

* SVC RESPONSE * 
***************** 



*J2 

X-ARI THE 

HEX DELIMITEPS. 






**** 

* * 

* C3 * 

* * 
*♦** 
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Chart AK. PDAID Initializer: PHASE and PARTITION Parameters; Error Routines 



* * 

* PRTQOBS ♦ 

* * 



* * 

* PRTCD * 

* * 



TYPOOTRT AG 

MFSSAGE i»C12D 
•TBACE * 

PARTITION*' 



*»*D1 ************ 
TypINRTN AG 

READ 
PESPONSB * 



I«t4<%)|r3(c9tc4t*4iat(4i)|t 



*♦♦* 



4:s«t**«02 ********** 



^t^t*^it ************ 



**** 

* * 

♦ F1 * 



ANY *. NO X 

RESPONSE .* 

*A3 .* 



**** 

* * 

* F1 *.X. 

* * 
**** X 

TVAL .*. 
FT 



**P2******* 

♦ ♦ 
RESET 

PARTITION 
COD I BOCKET 

* * 
***!******** 



**** 

* * 

* B3 ♦ 



*if***B3 ********** 

* PRTEPRCD AK* 

* LOG * 

* PRT5LIMINARY * 

* HSG FOR CD * 

*************iif*** 



***Q2*********** 

TYPOOTRT AG 

♦ _♦_♦_*-.♦»*_♦_*>* 

'INVALID 

* PARAHETER * 

SPECFD"»C17D 

!«l « Kl He «*«**« 3tc *« 4t 1(1 % !«t 



****f^H ********* 

* * 

* ODEPPCD * 

* * 

******if*!t:* *****! 



*, CARD INPOT 



****JH^****ill***^ 

* * 

* IGTRPRCD * 

* * 
*iH**1,********** 



CARD TjfPDT 



**** 

* * 

♦ pj» * 

« * 

**** 

S»6 



.* ISG 

ALREADY 
*. ISSOUD 



****23********* 

* * 

* PRTERRCD * 

* * 

******!tl******** 



*. CARD INPOT 



TYPOOTRT AG 

♦_ *_ *« ♦-. ♦- ♦_ ♦_ *- ik 

* 'OOTPOT * 

DEVICES' 

*itt*^c* *********** 



*it,*flH'^,********** 

SPRTfSG AG 

♦_*_*_*_♦-♦-♦_*_* 

BAD 

* PARAMETER * 

***************** 

**** 

* * 

* ?li *.X. 



**** 






****fll ********* 

* * 

* RETOPN * 

* * 

*************** 



**** 

* * 

* K3 * 



MPS *. NO 
OF BJF ,*. .. 
SYSTEM .* 



XYFS .* RESPONSE 
...*. F1,F2,F3 
*. OR F4 



NONMPS .*. 

J1 *. 
. * * . 
.* RESPONSE *. NO 



NO . * DD 
. . . *. OP DP 

*. FUNCTION 



X 

***** 
*AH * 
* B4* 

* ♦ 
* 

EOJ 



.* MSG 
ALREADY 
*. ISSOED 



****j2********* 

* * 

* RETURN * 

* * 
*************** 



**«*K 1********* 

* * 

* RETORN * 

* * 
*************** 



«C12D 

* 'TRACE 

PARTITION^' 
*************** 



*_*_»_*_*-.*_ 
BAD 

* PARAHETER * 

***************** 

**** 

* * 

* K3 *.X 

* * 
**** 

*««*I(3********* 

* * 

* RETORN * 

* * 
*************** 



MSG *. YES 

Ar.READY .*... 

TSSOED .* 



aci30 
* • IGNORE * 

DEVICE*' 

***************** 



***];; 5 ****** ****** 

SHRTHSG AG 

*_♦-*_*-.♦_*_*_*_* 

B1«D 
* PARAMETER * 

***************** 



****PS********* 

* * 

* RETORN * 

* * 
*************** 
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Chart AL. PDAID Initializer: Check Parameters, Devices, and Convert to Binary 






* PAEAMCHT ♦ 



****R 3** ******* 

* * 

* POBCHK * 

* * 

4c************** 



DELIMITER 



* POINT AT 

* PDB TABLE 

* IN COME EG 

* 

« * 9|i « !)< 3te * :|< :^ 4e * * Dt * * * 

**** 

* * 

* C3 *.X. 



**** 

C0DCS7T .*. 

El * 



CN¥TCOO 

:tc**it<4'F1 *=•<******** 

*CN¥T2BIN AL* 

* CONVEBT * 

* CCD TO * 

* BINAEY * 

********** ******4: 



CONVERSIOH 

*. EBROB . 

♦. *R2 .♦ 



CIJOPDBCK X 

♦POBCHK II* 

♦_♦_♦_♦_♦_*_♦«♦_# 

* CHECK * 

* PDB ♦ 

* TABLE ♦ 

:4(:4i * :|c «*« :|e 4i * :(i * iti )«<*:# :tc 



.* COO *. H 

*.IN POB TABLE .*. 
*. *K2 .* 



****E 2* ******** 

* EPBOP ♦ 

* BETOBN * 

* * 
*************** 



D3 *. 

* * 

END 

OF 

TABLE 

*. . * 

*. . * 

* NO 



* * 

* POINT TO NEXT * 

* ESTSY IN * 

* POB TABLE * 

* * 

*4(*************** 



**** 

* ♦ 

* C3 * 



*:t<:4i*C4******* 
* 

* PTilTlTTiN 

* 



**3tc«D^3«c4!)t<4t:tt*itt** 

* ERRO'^ 

* FOOTING? 
* 

*4e*** ********** 



****H 4 ********* 

* * 

* RETURN * 

* * 
*«**4c* ********* 



3(C***^^*t ******* 

* -^NVT^BIN ♦ 

* ♦ 

*4: ************* 
♦ *** 



**** 

rNVT2RTN 

3)<«*4<*T)S********** 

* * 

* si=;t op * 

* FOR * 

* CONVFT?SION * 

* * 
^C^^c ******** ****** 



**** 






* 


* 






* HS 


*.T 






* 


* 






**** 






SAVEN[!»1 


r 




#*-iltHtit\:^ i^*4t.4c'iHli*^ilt:ti* 


* 




♦ 


* 


STORE 




* 


BTNARY 


* 


* 


NHH 


9«H 


* 



«*«**#:tc*:«c3)c*:4i]|( <[:((** 



NO .* ALL ♦. 

...*. CHARACTERS . 
*♦ CHECKED .* 



COOOKEX 

X 
****!; 1*4c******* 

* * 

* RETDRN * 

* * 

**:tc**4c********* 



*!tc«*|r 5 ********* 

* * 

* R'P't'nRN * 

* * 

*4i4c* *********** 
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Chart AM. $$BPDAID ~ PDAID Transient Routine 



****A1 **♦*♦**♦* 

* * 

* «'RBPDAID ♦ 

* * 



i^*ikH,itc****ilf**t**** 



* * 
TORN 

OFF ALL 
HOOKS 

* * 



.* WRAP MODE *, YES 
*.0R TRANSIENT .*. .X 
*. DUMP .* 



♦ B2 * 

♦ * 



* ♦**>ttB 2** ******** 

* initialize: * 

* FOR A * 

* PARTICULAR * 

* TRACE * 

* * 



*it*****:^*-ti 



PRINT 
* PFMAINING 

RECORDS 



* ♦ 

* D? *.X 



*****52**** 



INDICATES 

TftBL'FlS 

FMPTY 



ANY 
PDAID TO 
. BF RUN 



PI *. 








*****y 2**** ****** 


. * *. 








* MOVE TABLE * 


.* ANY * 


NO 




* SETUP BY * 


*. TABLE TO BE 


.* 


.X 




* PDAID TO * 


*. EMPTIED .* 








* PDAREA * 












* *. . ** 




X 


***************** 


* YES 




**** 

* * 

* D2 * 

* * 








**** 




ETSUPST X 






*****g1 ********** 




G2' **. 


* 


* 




.* * . 


* GET 


♦ 




.* *. NO 


* SUPERVISOR 


* 




*. BJO .* 


* STATE 


* 






*. .* . 



****A 4 *♦**♦*♦*♦ 

* * 

* SrORTN * 

* * 
*************** 



**B3******* 

* TURN ON * 
SWITCH 

FOR FETCH 
"OOTINE 

* * 
*********** 



**** 

* 
C3 *.X 



***C3 ************ 

* GET * 

. REQUESTED 
* TRACE * 

***************** 



**]33******* 

* * 
TURN ON 

APPROPRIATE 
HOOKS 

* * 
*********** 



****E3 ********* 

* SVC 11 * 

* RETURN TO * 

* PDAID * 
*************** 



***************** 



*****H1 ♦***♦**♦** 

* * 

* SAVE iHJfcN * 

* RELOCATE * 

* ERROR CCM * 

* * 
***************** 



* B3 * 

* * 
**** 



***************** 



* CU *. X. 
**** 

X 
***C 4** ********** 



**************** 



**** 

* * 

* r£» * 

* * 
**** 



***************** 



RPRCOND 

*****ii<(S ********** 

* INTTIALTZE * 

* ERROR * 

* i^ESSUGE * 

* ttr?ttA * 

* * 
***************** 



*****(} 4 ********** 



***************** 



**** 
* D? 



*****j2** ******** 

* * 

* BRAKCH AND * 

* LINK TO THE * 

* TAPE TRACE * 

* ♦ 
***************** 



****j(|********* 

* RETURN * 

* TO CALLING * 

* POUTINF * 
*************** 



**** 

* * 

* D2 * 



i 
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Chart BA. PDLIST - Tape-to-Printer Prograir (Part 1 cf 3) 



* ♦ 

* PDLIST * 

* * 



START 
OOTABEA X 

* GET * 

* ADDRESS OF ♦ 

* OnTPOT * 
*AREA, RELOCATE * 

* DTP'S ♦ 



FILLOP 

♦♦♦♦♦CI *♦♦♦♦♦*♦♦♦ 

* CLEAR * 

* OUTPUT * 

* AREA, (INSERT * 

* X»FF») ♦ 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



REFERENCES 
TO BAE1: 
BCD2, BCG5 
BCK2, BDCU 

El ♦. 

.* TAPE ♦. 
.* HARK *. YIS 
*. ALREADY .*.... 
*. READ .♦ 



♦♦♦♦♦p^ ♦♦♦♦♦♦♦♦♦♦ 

* ♦ 

* GET I^PUT * 

* RECORD TYPE ♦ 

* AND LENGTH ♦ 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦_♦_♦_♦_♦_♦_«_♦_* 



TAPE 
MARK 
(EOF) 



* ♦ 

* SET RECORD 
* TYPE TO 

* X'Oli* 

* * 
♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦ 
*BC * 
♦ c2* 



LASTEEC 

POT BA 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



.**P/L 'OC **. YFS 
*. INDICATOR .*... 



X 

♦ ♦♦♦♦ 
♦BC * 

♦ B2* 



SET PECOBD 

TYPE TO 

X«01« 

♦ ♦ 

♦♦♦♦♦♦♦♦♦♦♦ 



♦ ♦, 




♦♦♦♦i;;^ ♦♦♦♦♦♦♦♦♦ 


TRANSIENT *. 


m 


* 


DUMP .* 




♦ POT 


. * 




* i 


*. .* 




♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


*. .* 


X 




* YES 


*♦♦♦* 

♦BC * 

* B2* 

* ♦ 

* 




UNRECSET 


X 


X 




.*. 


i^f2******* 




F4 *. 


♦ 




.* IS *. 


ET RECORD * 




.* PPTNT *. 


TYPE TO * 




* . LT NE .* 


X»08« * 




*. EHPTY .* 


♦ 




*. . * 


♦♦♦♦♦♦♦♦♦♦ 


X 


*. .* 




♦ ♦♦♦♦ 


* NO 




♦ BC * 






* C2* 












♦ 






C01PCD 






THEPOT X 






♦ ♦♦♦♦Q 14 ♦♦«♦♦♦♦♦♦>« 



* SVC 14 * 

* CANCEL * 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



SPCTST1 .*. BALL 


X 


J1 *. 




♦♦j2******* 


. * ♦. 




* MODIFY 


.* GSVC *. YES 


♦ 


'ENEBR' TO 


*. RECORD .*.... 


* 


INDICATE 


*. . * . 


* 


TAFEMARK 


*. .* 




* READ 


*. .* X 




♦♦♦♦♦♦♦♦♦♦♦ 


♦ NO ***** 






♦BB * 






* K1* 






X * * 




X 


♦ ♦*♦ ♦ 




**♦** 


* ♦ 




*BC * 


* B3 * 




* C2* 


* * 




* * 


**♦♦ 




COHPCD 



*0:ti*Q2********* 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



* ♦♦♦♦{:[3^* ♦♦♦♦♦♦♦♦ 

* GET ADDRESS * 

* OF DTP TABLE * 

* AND LOGIC * 

* MODULE * 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



* * ♦ * 

* *BAL TO GET * * 

* * ROUTINE * ♦ 

* * IN LOGIC * * 

* * MODULE * * 

* 4t««*4*^**^ ♦♦♦♦*♦ 



♦♦♦♦1^3 ♦♦♦♦♦♦♦♦♦ 

* RETURN * 

* TO MAIN * 

* ROUTINE * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



STORE PRINTER * 

* CONTROL CHAR- * 
♦ACTER. GET A DDR* 

* OF DTF TABLE * 
♦AND LOGIC MODE * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



* BLANK OUT ♦ 

* PRINT LINE * 

* AREA * 

* * 
*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦rc;******* 
* ♦ 

* SET Rls;CORD 
♦ TYPE TO 

♦ x«"2« 



*BC * 
* C2* 

* * 

COMPCD 



♦♦♦♦n>^ ♦♦***♦♦♦♦ 

* RETURN * 

* fO MAIN * 

* ROnT-INE * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦^ !:;♦♦♦♦♦♦♦♦♦ 

* * 

* RETURN ♦ 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
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Chart EB. PDLIST - Tape-to-Printer Program (Part 2 of 3) 



i)l*:t^*J^^ ********* 

♦ ♦ 

♦ GSVCDNPK ♦ 

♦ * 



♦♦♦♦♦B1 **^it,!tin,t*** 



* :(, 3tc * * :tc jfc :(( « 4c :)< * * itc ;)c 4t 



#****ci ****♦*♦♦** 



t************=«t*** 



* EETDHN * 

* TO CALLING * 

* l^OUTINE * 



B2 



*. 



HAS 
.* ROUTINE 
. PREVIOUSLY 
*.BEEN i^NT-. 
*.IEED .* 
*. . * 
* NO 



GSVCPRT 

*!(t*C2** ♦♦***♦**** 

PUT BA 



*♦*♦ 

* * 

* Bli * 



PUT BH 

*♦_*_*_*_*_*_♦_** 

PRINT 
* LTNT^ * 

:((4<:t<**4<**** ******* 



CLEAR 
* PRINT * 

AREA 



itiitfiti*it^j)2 ********** 

* SET lOINTFHS * 

* IC TAPE * 

* INPUT AND * 

* PRINl OUTPUT * 

* AREAS * 



i^i^[*i^*l2********** 

* CLEAR * 

* COUNT REGS * 

* RESET TIRST ♦ 

* TIME * 

* SWITCH * 



*****(7 3#i|t ******** 

* * 

* RESTORE ♦ 

* REGS FOR * 

* GSVC * 

* * 
***************** 



* F2 *.X. 

♦ !t 
**** 

GTSTJIFF .*. 



.* PRINTABLE ♦. YES 
*. GSVC ...... 

*. RECORD .* 



GSVCTYPE 

*****Q2********** 

*GSVCnNPK BE* 
*_*_♦-*>♦_*_*_*_♦ 

* GET RECORDS * 

* READY FOR * 

* PRINTING * 
***************** 



*****t|0********** 

* FORMAT * 

* PRINT LINE * 

* FOE GSVC * 

* EICORD * 

* OUTPUT * 
***************** 



STORLIN .*. 

J2 *. 
. * FIRST *. 
NO .* PRINT ♦ 
....*. POSITION 

*. OPEN .* 



* UPDATE * 

* INPUT * 

* POINTERS * 

* * 
***************** 



.* HAVE ♦. 
* ALL RCDS ♦. YES 

BEEN PEOC- .*.... 
*. ESSED .* 



*«** 
* 
♦ F2 



* J1 *.X 



**** 

ST0RE2ND 

*****(( 1********** 

* STORE ♦ 

* SECOND * 

* HALF OP ♦ 

* PRINT LINE * 

* * 
***************** 



*****ji(********** 



***************** 



*****K3 ********** 

* * 

* STORE FIRST * 

* HALF OF * 

* PRINT LINE * 

* * 
***************** 



X 

***** 
*BA * 
* H3* 



**** 

* * 

* BU * 
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chart BC. PDLIST - Tape-to-Frinter Program (Part 3 of 3) 



♦♦♦♦* BEFESENCIS 

♦ ♦TO BCB2: 

* ** BkB^, BAE3 
* * BPP3 



ONBECSET I 

**B2******* 
♦SET RECORD * 

* TYPE TO * 

* X«80« HMD * 

* SAfE THE ♦ 
* LIMGTH ♦ 

**** *. BBFESEIICIS 

* ♦ .TO BCC2: 

* ♦ ♦.X. BAD2, BAdI 
:**** iBIF3:BA.2 

COHPCD ,*. 

C2 *. 
. ♦ IS ♦. 
.* THIS ♦. YES 

♦. RICORD ...... 

*. S*HE AS .* 
*.LAST .* 
*. . * 
* NO 



* * 

* C«t * 

* ♦ 
**♦* 



mmc"^ ******* 
* * 

* SET RECORD 
.X* TYPE TO 

* X»0«»» 



♦_♦-,♦_*-. 



^t^ifm************* 



♦_♦_♦-.*_*_ 



mXTIN .*. 

E2 *. 
.* ECD *. 
.* TYPE= 
*. X'01' (I/O 
♦. TRACE) . 



P2 ♦. 
♦ ECD * . 
TTPE= 
*. X«02« (P/L 



X«02« (?/ 
. TRACE) 



62 *. 

* BCD ■■ 

TYPE= 



gTA 
E 



***** 
♦BA * 
♦ Et* 



X 

***** 
♦BD * 
♦ B2* 



X 

***** 
*BE * 



H2 *. 

.♦ RCD *. 

.* TYPE= 

X«08» 

*.TRAHSIENT. 

*.DO«P .* 

♦ . . * 

* NO 



ONRECOGNTZ- 
* ABLE * 
RECORD *.T» 
***************** 



LOAD PTFQ 
CKTR 

m *. 
.* BAD *. 
.♦RECORD MORE*. 
*. THAN 6 

*. BYTES .* 



0NPK1 

*****P4 ********** 

* DNPACF AND ♦ 

* TRANSLATE * 

* DATA TO BE * 

* PPINTFD * 

* * 
***************** 



NO .* ALL 
X..*. READY TO 
*. PRINT 



***|{i4** ********** 
POT BA 

*-*-*-*-*-*-*-*-♦ 
WRITE BAD 
* RPCORD * 

***************** 



LF,N=!T 

UNPK2 X 

*****F<j******** 

* nNPACK AND 

* TRANSLATE 

* OAT* TO BP 

* PRIN'PBD 
* 
*************** 



SHORTOnT X 

***r;c; *********** 

pnT BA 

*_*_*_*_*_*_*_*_* 



***************** 



***** 

*BA * 

* F1* 
* * 



SET TO 

READ 120 

BYTE RECORD 

* * 

*********** 



.* RCD *. 




.*TYPE=X«80« *. 


YES 


*(DNRECOGNIZABLE* 




*.^ RICORD)^.* 




**. .** 




* NO 


**** 




* * 




* Cl» * 




* * 




**** 










K2* **. 




. * *. 




.* RECORD *. 


YES 


*. MOVED INTO .* 




*. SLOT .* 




*. .* 




*. .* 


X 


* NO 


***** 




♦BA *FLTRSET 


....... X* SETUP 


* B4* 


X 


* * 


***** 


* 


*BA * 




♦ El* 





*JU 
ISSUE MESSAGE HC26I - 
'ONRECOGNIZABLF RECORD, 
DUMP FOLLOWS'. 
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Chart BD, PDLIST - I/O Trace Hecords 



.♦ THIS *. 
YES .*HECOKD SRME*. 
...*. AS LAST ONE . 
♦.PBCCESSED.* 



POT 

PRINT 
* SHORT 

LINE 

^:^***:l^t ******** 



* SET UP BCT * 

* PEG TO PBINT * 

* 3 ENTBIES * 

* PEB LINE * 

* * 






lOTEFEMT .*. 



.* THIS *. 
.*FECORD SAME*. NO 
. AS NEXT TO .*... 
*. PBCCESSED.* 



SLOT *. YES. 
POB NEXT .*..X 

. ENTEY .* 



* TDRN ON ♦ 
* OVERFLOW * 

* INDICATOR * 
# * 






* B« * 

**** 



ENTRY 
TO BR 
READ 



* Ci| *.X. 

♦ * 
♦*** X 

GOTHRO .*. 

CU *. 
.* ENTRY *. 
.* IN SLOT 
*. TO Bi" 
*. READ 



*t***j)^********** 

* * 

* GET PSH * 

* LABEL FOP * 

* OOTPOT * 

* * 
*********i^****iit** 



OVERPLOH 

INDICATOR 

ON 



ltt9|t4c*ltiPS** ******** 



POINT AT 
NEXT SLOT 



***************** 



**fS******* 

* TORN OFF * 
INDICATOR 
POT ♦IN 

ENTRY 

* * 



^ 



* :4c4: * * F 14 * * at> * *** * 4c * 

* * 

* FORMAT PSW * 

* AND CSW FOR * 

* OOTPOT * 

* * 

*:ilf*i>:*ii:*^ct** ****** 



.* THREE *. 

ENTRIES 

♦.FORr'ATED .* 



* r«» * 

* * 

**** 



RPITE 
♦ THE 
RECORD 

* 4c * * :4i « ;(c 4: « « :(c :|c « 4c :(c :4c * 



RELD 

*****j2 ********** 

* SET DP BCT * 

* REG TO PRINT * 

* 3 ENTRIES *X 

* PEE LINE * 

* * 

***:f ************* 



ANOTHER 
STAGN 

!tc4l#4c*JC)4c***>t<**3tcitC* 

* SET OP BCT * 

* TFG TO PRINT * 
. ..X* 13 ENTRIES * 

* PER LINE * 

* * 
*Ht*************^i* 
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Chart BE. PDLIST - F/L Trace Records 



***** 

*BC ♦ 

* F2* 



**** 
* 

m * 



***4(*]E;l*******it<4<j)< 

* * 

* POINT AT * 

* NEXT *} 

* SLOT * 

* * 
mitt*************** 



FLTBEC .*. 

B2 *. 
.* THIS *. 
.*EECOBD SftHB*. YES 
♦. RS LAST ONE .*..., 
*. PBCCESSED.* 



***C 2 ♦*♦*** ****** 
POT BA 

PUNT 
* SHOET ♦ 

LINE 



***#*][)2********** 


* SET OP BCT 




* lEG TO PRINT 




* 2 ENTRIES 




* PEE LINE 




♦ 




*******#********* 


**** 






* * 


X 




♦ E2 *.X 






* * 






**** X 




FINDFIB .*. 




E2 *. 




. * ♦. 




NO ,* ENTRY * 




♦. TO BE 


'.* 


*. BEAD ,♦ 




♦ . .* 




*. . * 




* YES 




*♦*♦ 




* ♦ 




♦ P2 ♦.X 







:|e>K***B4********** 

* * 

* BOILD ANn * 

* FORMAT ¥/l. * 

* ENTRY ♦ 

* * 
itcDi* **<(*** ******** 



i|i](c i(c *:)( 4c * :|c 4c ******* 4c 



.* TWO 

ENTRIES 
♦.FORMATED 



ENTRY IN 


*, 


NO 


SLOT TO BE 




*. . . . 


. READ 


* 




♦ . . * 






*. .* 




X 


* YES 




***** 
*BA ♦ 

♦ El* 



4._*_ *_4c-*- *-*-♦_ 

PRINT 
* A * 

LINE 
*4c*4c4c4i*4(4c****4c*** 



HALF X 

4c 4<***H4 ********** 

* SET OP BCT * 

* BEG TO * 

* PRINT ANOTHER * 

* LINE * 

* * 

4C4C*************** 



NEWLINE X 

*****psi ********** 

* SET OP BCT * 

* PEG TO * 

* PBINT * 

* ANOTHER * 

* LINE * 

4c 4c4c ******** ***4<** 



**** 
* 

* F2 



I 

r 
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Chart BF. PDLIST - QTAM Trace Records 



***** 

*BC ♦ 
♦ 62* 



♦ *** 

* * 

* B« * 

♦- * 

**** 



***£■{ ****iHH^***** 

POT EA 

♦_♦-.♦-*_♦-. «-. #_ *« it, 

PRINT 
♦ SHOBT LINE * 

* * * :|i ** % % 4< :tt 4r * 4: i«i * ifi * 



* INITIALIZE * 

* COONTEB rOR * 

* 2 ENTBIIS * 

* PEB LINI ♦ 

* * 



HALP1 X 

ale** «4iB 3«4c«*4t3|i4ii|[ 4(i|t 

*POINT TO PBINT * 

* LINE AND * 

* INITIALIZE * 

* COONTEB TO * 

* * 

*************:**** 
**** 



**** 

FNTRYQ1 .*. 



B« ♦. 



♦POINT TO PRINT * 

♦ LINE AND SET * 

♦ COONTEB TO * 

♦ * 



OTAMPRHT .*. 

El *. 
.* FIRST *. 
NO .* POSITION * 
. . .*. AND OVERFLO 
*. IND. ON .* 



*tf }******* 

* TORN OFF * 

♦ FLAG AND 

TORN ON 

* OVEEFLOH 

♦ INDICATOR * 

*itf:f ******** 



PINDFIR1 .'■■ 



OOTP0T1 * 


YES 


AN SVC 




RECORn .* 




* 




*. .* 


r 


♦ NO 


lit**** 




*BB * 




♦ B2* 


X 


* * 


**it<*4' 


4t 


*BA * 


RETORN 


* El* 





.* ENTRI 
IN THIS 
♦.POSITION 



♦ INCREMENT ♦ 

♦ POINTER ♦ 
.♦ BY +17 TO ♦ 

♦ NEXT ENTRY ♦ 

♦ * 

4i :tc « :(! * i«t * * itiilc * * 1)1 * « # 4: 



^i,tiit,**Q2********** 

* * 

* BOILD AND ♦ 

* FORMAT SVC * 

* RECORD ♦ 

* * 
***n,*****m******* 



NO .♦ 


'I» TYPE 


* 




« . . ♦. 


RECORD 




. ♦ 


♦ 


* ♦. . ♦' 


* 




X 


*. . * 






***** 


♦ YES 






♦ BC ♦ 








* B2* 










♦ * 










♦ 










OJTRECSET 












X 






**^*:»l(;-^ilf*iis:t:****** 








* 




BOILD AND 




* 




FORMAT I/O 




* 




REC 


3RD 




* 



]«.«;^#:i|<*l«cl(e4>4l*H'^ 



♦ * 

♦ BOILD AND ♦ 

♦ FORMAT SIO * 

♦ RECORD ♦ 

♦ * 

JK * 4<i(< * DC # « * « « :(i * :)< :|t 4t * 



^iiliitiH,*^^**** ****** 

♦ INCREMENT TO * 

♦ NEXT ENTRY ♦ 

♦ AND NEXT * 

♦ POSITION IN * 

♦ ODTPOT AREA * 
***************** 



**** 

* 
* C3 



***f^2**** ******** 

POT BA 

♦_ ♦_ ♦_ ♦_ *_ ♦_ *„ ♦_ * 

PRINT 
LINE ♦ 

*i^************* 
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chart CA. I/O Trace: Core-Wrap Mode (PDAIDITW) 



* FROM ♦ 

* SOPEVISOR * 

* SIO ROOTINE * 
^^c^Hini**** ****** 



SIOENTEE 

*****'l^'[ ********** 

♦INITZ Cfi ♦ 

*_♦_*_♦_♦-♦-♦-*-♦ 

* INITIRLIZE * 

* MODDLE * 

* * 
***************** 



* STORE DATA * 

* FROH SIC * 

* CONDITION *R4 * 

* ♦ 
***************** 



**** 

* * 

* hi * 

* * 

**** 



.* FIRST *. 
* DIVICE *. YES 
INTERRUPTED .*... 



B2 *. 
.♦SECOND *. 
♦ DIflCE *. TES 
INTEEROPTED .♦..X 



C2 *. 

.* THIRD ♦. 

* DE7ICB ♦ 

INTIRBOPTED 



* * 

* A3 ♦ 

* * 
**** 



CK0EVCE1 .*. 

A3 ♦. 
.* FIRST ♦. 
.* DEVICE *. YES 
*. INTEEROPTED .*... 



*Aa 

THE DATA CONSISTS OP— 
-CHANNEL AND UNIT ADDRESS, 
-CCB ADDRESS, 
-CSH, 
CAW. 



.♦SECOND ♦. 
* DEVICE *. YRS, 
INTBRR OPTED .♦..X 



.♦ THIRD *. 
.♦ DEVICE *. YES 
*. INTBRIOPTED .*..X 



**** 

♦ * 

♦ G3 * 

♦ * 
♦**♦ 



****f^i^********tf 

* * 

* INITZ ♦ 

* * 
*************** 



ALTERNATE *. 
AREA 
. SPECIFIED. ♦ 



*****Qti********** 

* ♦ 

* COIPOTE AND * 

* SAVE LENGTH ♦ 

* OF THE PD ♦ 

* SAVEAREA * 
***************** 



*****C'^********** 

♦ GET THE * 

♦ ALTERNATE * 

♦ AREA ADDi^ESSES * 

♦ PROH STANDARD * 

♦ PREFACE TABLE ♦ 
***************** 



ENTCHNG 

**f)K,******* 

♦ MODIFY * 

♦ 'SIOENTEE' 
* BRANCH TO 

* 'FROISIO' 



*****-g-{ ********** 



***************** 



.* CSi ♦. 

STORED 

♦.CONDITION. ♦ 



NO . ♦ CSW 

. ..♦. STORED 

♦.CONDITION. 



♦ *♦♦ 

* * 

* H1 * 



**** 

* * 

* S3 ♦ 

* * 
**** 



*****-^H ********** 
. * ▼. ♦ GET THE * 

END OF *. YES * ADDRESS OP ♦ 

SAVEAPEA .* .!♦ THE BEGINNING * 

.* * OF THE ♦ 

♦. .* * SAVEAREA ♦ 

*. . * **♦♦***♦*♦♦♦**♦** 

♦ NO 



**♦ 



t******* 



E3 



♦ . 
♦ . 

♦ ♦** 

♦ * 

♦ G1 *.X 

♦ * 

**** 



_*_♦_♦_»_* 



* RETRANSLATE 

* CSW ADDRESS ♦ 

* ONLY ♦Jl ♦ 

ilt**H^***^tilt*-!ti***:tiHL* 



*****Q2********** 

* * 

* ZERO CCH * 

* AEDRESS ♦ 

* IN CSR * 

* ♦ 

***************** 



.♦ TRACE OR 


♦ . 


•TRC 


. IGNORE I/O 


.♦ 




♦. EVENTS 


* 




♦. ♦J3 .♦ 










X 


* 




**** 


. « IGN 




* < 

* A2 


X 




* 


**** 




**** 


* * 






♦ A3 ♦ 












**** 







♦Jl 

IF AN I/O EVENT OCCURS WHILE RUNNING 
IN VIRTUAL MODE, TBI REAL ADDRESSES OF 
THE CCBS AND CSSS MOST BE RETRANSLATED 
TO VIRTUAL ADDRESSES. WHEN A SOPERVISOR 
ISSUED SIO OCCURS, BOTH THE CCB AND CSW 
ADDRESSES ARE RETRANSLATED. WHEN AN I/O 
INTERRUPT OCCURS, THE CCB IS NOT TRANS- 
LATED; THE CSW IS RETRANSLATED ONLY WHEN 
A CCB IS AVAILABLE, AND WHEN THE CCB HAS 
BEEN TRANSLATED DURING CCW TRANSLATION. 



* SAVE THE ♦ 

* ADDRESS OF * 

* THE 'NEXT ♦ 
♦AVAILABLE SLOT«+ 
***************** 



****Q2*-******** 

* RETURN TO * 

* ENTRY POINT ♦ 

* * 
*************** 



THE I/O INTERRUPT 
DATA CONSISTS 0F~ 
-I/O OLD PSW, 
-CSW, CAW. 



♦ J3 
THE INITIALIZER ROUTINE 
jINITZ) DETERMINES WHICH 
STRING OF CODING WILL BE 
USED, DEPENDING IF 'TRC 
OP 'IGN' DEVICE S~ 
-•CKDEVICE1' IF 'IGN' IS 
SPECIFIED, 

-'NEWCHK' IF 'TRC IS 
SPECIFIED 



*****ffC^********** 

* * 

* CLEAR LAST ♦ 

* 186 BYTES 0^ * 

* PD SAVEAREA ♦ 

* ♦ 
***************** 



1"i *. 

.♦ 'OPT' ♦. 

.♦ BYTE IN *. 

. STD PREFACE . 

♦.TABLE IND.^ 

♦, 'TRC . ♦ 



****QH ********* 

♦ FROM ♦ 

♦ INTIEROPT ♦ 

♦ HANDLER ♦ 

*************** 



INTENTER 

*****flH********** 

♦INITZ CA ♦ 

♦_*_*-♦_*_♦_♦-*_* 

♦ STORE DATA ♦ 

♦ I/O INTERRUPT ♦ 

♦ ♦ H3 ♦ 
***************** 



♦ YFS 



**r^S******* 
♦SUBSTITUTE ♦ 

♦ 'VEWCHK' 
CODING FOR 

♦ 'CKDETCEI* 

* ♦ k2 ♦ 

*********** 



*****flti, ********** 

♦ * 

♦ CLEAR ♦ 

♦ ADDITIONAL ♦ 

♦ BYTES ♦ 

♦ PD SAVEAPEA ♦ 
***************** 



****jc,********* 

* RETtTRN ♦ 

* * K5 * 

* * 
*************** 





♦ KS 




RETURN TO 


X 


APPROPRIATE 


.♦. 


ALTERED ENTRY 


m ♦. 


INSTRUCTION. 


.♦ HAS ♦. 


**♦* 


CCB BEEN ♦. NO X ♦ ♦ 


TRANSLATED .♦... 


«♦ HI ♦ 



I; 



♦ G1 ♦ 

* * 
**** 
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Chart CB. I/O Trace: Print Mode (PD?^IDITP) (Fart 1 of 2) 



♦*** 

* ♦ 

* A2 * 



* * 

* AS * 



**♦♦ 

* * 

* * 



* FBOH * 

* SDPERVISCH ♦ 

* SIO BODTINE * 
4>«>ti:fc*4'**4< ****** 



SIOBTN X 

:(i:«**#B1«3tc4<it>*4>#*4>* 

*SAVE CCB ADDB. ,* 

* CHANNEL AND * 

* UNIT ADDEISS, * 

* CSM.AND ♦ 

* CAW * 

*«:«[**** ********** 



4t3)t*«*** ********** 



* * 

* SAVE THE * 

* DEVICE * 

* STATOS * 

* * 
i4c%)f ************** 

**** 



***♦ 
DHPTST X 

*****B2******** 
* 

* GST THE 

* ADDRESS 

* OF PHASE 

* NAME 

#«**;t(**Xi«*:tEJtc)«c*4i 



C2 *. 

.* ♦. 

YES .* EOMP *. 

...♦. IN 

*, PROGRESS .* 
*, . * 

X *. .* 

**** * NO 

* * 

♦ G5 * 



A3 *. 
.* IQPT' *. 
NO . * BYTE IN *. 
. ,*. STD PREFACE . 
♦.TABLE IND,* 
*. 'IGN'.* 
*. .* 
* YES 



**B3******* 

*SOBSTITDTE * 

'CKDEVCE1» 

CODING FOR 

•SAVUH' 

* * J3 * 

:)i«4<******** 



IGNDEV 

*****C3********** 
*CLEAH I/O AREA * 

* AND SATEAREA, * 

* GET DUMMY * 

* 'DEVICE END' * 

* STATOS BIT * 

)«< 9)c ;<c * « 9tc « « « * * :t< * >«t ])e # 3(t 



.* FIRST *, 
YES .* DEVICE * 
. ..*. INTERPOPT'ED 



CKDEVCE2 .*. 

BU *. 
. *SECOND *. 
YES .* DEVICE * 
X..*, INTERROPTED 



.* THIRD *. 
-YES .* DEVICE * 
X...*. INTERROPTT^D 



.* FIBST ♦. 
YES .* DRVICE * 
...*. TNTi'RRnPTEr) 



RS *. 
.*SFCOND *. 
YES .* DEVICE * 
X, .*. INTFPROPTED 



C5 *. 
.* THIRD *. 
XYRS .* DEVICE *. NO 
.*. TNTERRtlPTED .*... 



♦*D3******+ 

* MODIFY * 

* "ENTRY'TO * 
INDICATE 

* HODOLE IS * 

* RELOCATED * 

3«e:4(4<******** 



:(cg1«9)i4( ******* 



*3ti***** ********** 



.* CSH *. 

STORED 
♦.CONDITION.* 



. * HODOLE *. YES 

ALREADY .* 

♦.RELOCATED.* 



* HI * 

* * 
**** 



.* CSW *. YES 

STORED .♦ 

♦ .CONDITION.* 



X 

* * :«t « :«<G 1 :» « * :tc :(< « * 3»: * >|< 

♦EETBCSl CF* 
♦_♦_*_*_*_*_♦_*_♦ 

* RETRANSLATE * 

* CSW ADDRESS * 

* ONLY ♦Jl ♦ 
4i** ******* ******* 



* ♦♦♦sCQ 2 ********** 

* * 

* ZERO CCW * 

* ADDRESS ♦ 

* IN CSW * 

* * 

***!(c«9tc4'********** 



* GET ADDR OF * 

* I/O AREA AND * 

* UPDATE CCW * 

* DATA ADDR * 

«;(C)(I*«** ********** 



4: 4>***G3 ********** 

* * 

* GET ADDRESS * 

* OF ERROR MSG * 

* AND UPDATE * 
*ERRCCW *K3 * 
*♦♦*♦********♦♦*♦ 



* SAVE DEVICE * 
X* TNTRFROPT * 

* ADDRESS * 

* * 

^«;((}tc:(,«4i3tc«i«(4:****** 



TRC .* TRACE *. 
. . .♦.OR IGNORE I/O. 
*. EVENTS .* 



**n5******* 

♦ SET" UP » *« * 

* "^0 TNDICATE 
LOST ENTRY 

* DUE TO 

* OVERFLOW * 

4l*******3|(** 



:4(:4( ;(c *!)( <p S ******** ** 

* * 

* UPDATE * 

* OLDEST ENTRY * 

* POINTER * 

* * 



SRVEIT 



MOVE HKOTHER 
ENTRY INTO 



* A^ * 

* * 
**** 



**** 




* ♦ 




♦ HI *.X. 




* * .X 




♦ *** X 




.*. 




K1 *. 




.♦OUTPUT ♦. 




.♦ DEVICE *, 


NO 


*. INTERRUPTED 


♦. . . . 


♦ . .♦ 




♦ . .♦ 




*. .* 


X 


* YFS 


**** 




♦ ♦ 




* B2 * 


X 


* * 


«#«« 


***♦ 


* * 




♦ A2 ♦ 




* * 




**** 





♦Jl 

IF AN I/O EVENT OCCURS WHILE RUNNING IN 
VIRTUAL MODE, THE REAL ADDRESSES OF THE 
CCBS AND CSWS MUST BE RETRANSLATED TO 
VIRTUAL ADDRESSES. WHEN A SUPERVISOR 
ISSUED SIO OCCURS, BOTH THE CCB AND CSW 
ADDRESSES ABE RETRANSLATED. WHEN AN I/O 
INTERRUPT OCCURS, THE CCB IS NOT TRANS- 
LATED; THE CSW IS RETRANSLATED ONLY WHEN 
A CCB IS AVAILABLE, AND WHEN THE CCB HAS 
BEEN TRANSLATED DURING CCW TRANSLATION. 



**** 
* 
* A3 



*33 

THE INITIALIZATION 
CODING DETERMINES 
WHICH STRING OF CODING 
WILL BE USED. DEPENDING 
ON WHETHER THE CE 
SPECIFIES 'TRC OR 
•IGN'DEVICES— 
-CKDEVCE1 IF IGN 
IS SPECIFIED. 
-•SAVUH'IF'TEC 
IS SPECIFIED. 



♦K3 
ERROR MESSAGE 
I^CIHK INDICATES 
DEVICE NOT 
OPERABLE 



****5tj********* 

* FROM 

* INTERRUPT 

* HANDLER 



♦ SAVE I/O OLD ♦ 

* PSW- CSW, * 

♦ AND CAW * 

* * 

«*i«c:»:«]ti««*:» :4c ****** 



I/O 

AREA 
FOLt 



THREE 
ENTRIES 
. IN I/O 
♦.AREA ,* 



REFERENCES * 
TO CEJ5: X * 
CCC5, CCI3 * 

CCK4 ;#** 



***** 

*cc * 

* B1* 
* * 



,* HAS *. 
♦ CCB BEEN 
TRANSLATED 



♦ RESTORE THE 

♦ CSW- CAW 

♦ AND RETURN 

♦ ADDRESS 
**************** 



* RETnPN 

* TO ENTRY 

* POT NT 
************ 
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Chart CC. I/O Trace: Print Mode (PDAIDITP) (Part 2 of 2) 



***** 

*CB * 

♦ H5* 



**** 

* * 

* B3 * 

* ♦ 
♦ *** 



*♦** 

* * 

* B5 * 



POTIN X 

*****gi ********** 

♦GET THE ADDRESS* 
*0F THE S&VEAHEB* 
*AND THE OLDEST * 

♦ ENTRY POINTER * 

* * 
***************** 



* GET THE * 

* ADDRESS OF * 

* THE I/O AREA * 

* * 

***************:»* 



*♦** 

NEXTONE X 

*****I3T **♦***♦♦** 

♦TRANSLATE INFO ♦ 
♦INTO PRINTABLE ♦ 

♦ FORMAT, GET ♦ 

♦ NEXT ENTRY * 

♦ * 

****** **«:4<******* 



♦ ****]3 2 ********** 

♦ * 

♦ UPDATE * 

♦ OLDEST ENTRY ♦ 

♦ POINTER * 

♦ * 
***************** 



DOPT X 

***«*B 3**** ****** 

♦ GET * 

♦ CHANNEL * 

♦ AND UNIT * 

♦ ADDRESS * 

♦ * 
***************** 



***♦ 
ERRHR X 

*****C3 ********** 



*************** >|c* 



***Q3 ************ 



***************** 



***** 
*CR * 
* J5* 



*****DS**** ****** 

♦ GET AND STORE ♦ 

♦ CHANNEL AND * 

♦ TJNTT ADDRESS * 

♦ FOR STSLOG * 

♦ * 
***************** 



*****i;5********** 



***** 
♦CB ♦ 

* Q5* 



.♦DEVICE END 
. ON OOTPOT 
♦. DEVICE . 



G1 ♦. 

.♦OUTPUT ♦. 

* DEVICE ♦ 

INTEBHUPTSD 



****}} 1*«**44=*:)e4# 

GET ADDRESS ♦ 

OF THE ♦ 

CHANNEL ♦ 

QDEOE ♦ 

POINTER ♦ 

**************** 



*****!; 2 *♦♦♦♦*♦♦*♦ 

♦ * 

♦ STORE ♦ 

♦ OLDEST ENTRY ♦ 

♦ POINTER ♦ 

♦ * 
***************** 



*♦** 
WAIT 



***************** 



**** 

* * 

♦ C3 ♦ 



ERROR ♦, 

CONDITION . 

'. POSSIBLE . ♦ 



* I/O * 

FROM 

ERROR 

ROUTINE 



.♦ 


DEVICE 


♦ . 


YES 




AVAILABLE 




♦. .. . 


* 


♦. .♦ 


* 






♦ . . ♦ 




X 




♦ NO 




*** 
* 




...X 


I 




♦ B3 
* 
*** 


****K ■)********; 






RET 


[JRN 




* 



*****j3 ********** 



***************** 



*CB ♦ 

♦ H5* 

* * 



BRANCH TO 
♦ RETURN TO 
♦SUPERVISOR ♦ 
*********** 






***** 
*CB ♦ 
♦ J5^ 



PDAIDS 61 



Chart CD. I/O Trace: Tape Mode (FDAIDITT) (Part 1 of 2) 



♦ * 

* A2 * 



* A3 * 

* * 



iit***j^1 ********* 
♦FEOM SOPERVISOE* 

* SIO ROOTINE * 

* * 
*************** 



* SAVE CSW-CAl ♦ 
♦DEVICE ADDRESS,* 

* AND CCB * 

* ADDRESS * 
***************** 



A2 *. 
. *ODTPnT *. 
NO .* DEVICE * 
. ..*. IKTEERDPTED 



*****i^2********** 

* * 

* SAVE THE * 

* DEVICE * 

* STATUS * 

* * 
***************** 



***************** 



* GET THE * 

* ADDRESS OF * 

* THE PHASE * 

* NAME * 
***************** 



MODULE 

ALREADY 

.RELOCATED. 



*****^2********** 

* * 

* GET ADDR OF * 

* I/O AREA AND * 

* UPDATE CCW * 

* DATA ADDR * 
***************** 



*****Q2 ********** 

* GET ADDRESS * 

* OF ERROR * 

* MESSAGE AND * 

* DPDATE ERROR * 

* CCH *D4 * 
***************** 



.* FIRST *. 
* DEVICE *. YES 
INTERRUPTED ,*.. . 



*****Q-\ ********** 



***************** 



.* csw ♦. 

STORED 
♦.CONDITION.* 



NO .* csw 
. ..*. STORED 

*. CONDITION. 



**** 
* A2 * 



**** 

* * 

* G1 *.X 

* ♦ 
**** 



*****G^ ********** 

*RETRCSW CF* 
*_*_*_♦_*_♦_♦_*_♦ 

* RETRANSLATE * 

* CSW ADDRESS * 

* ONLY *J1 * 
***************** 



♦*E3******* 

♦ * 

* MODIFY CCW 
* TO SET 

* MODE 

* * 
*********** 



*****Q2********** 

* * 

* ZERO CCW * 

* ADDRESS * 

* IN CSW * 

* * 
***************** 



.X.. 

X 

**♦* 

* * 

* A2 * 

* ' ♦ 



* H2 
THE INITIALIZATION 
CODING DETERMINES 
KHICK STRING Of 
CODING WILL BE USED, 
DEPENDING ON 'TRC 
OR«IGN» DEVICES 
SPECIFICATION — 
-CKDEVCE1 IF »IGN« IS 
SPECIFIED, 
-•SAVDM'II 'TRC IS 
SPECIFIED, 



DONSET .*. 

F3 *. 
.* "OPT* *. 
NO .* BYTE IN * 
., .*. STD PREFACE 
*.TABLE IND. * 
♦.•IGN» .* 
*. .* 
* YES 



**G3******* 
* * 

* SUBSTITUTE * 
•CKDEVCE1' 

* CODING FOR * 
'SAVUH' *H2 

*********** 



* J1 
IF AN I/O EVENT OCCURS WHILE RUNNING 
IN VIRTUAL MODE, THE REAL ADDRESSES 
OF THE CCBS AND CSWS MUST BE RETRANS- 
LATED TO VIRTUAL ADDRESSES WHEN A 
SUPERVISOR ISSUED SIO OCCURS BOTH 
THE CCB AND CSW ADDRESSES ARE 
RETRANSLATED. WHEN AN I/O INTERRUPT 
OCCURS, THE CCB IS NOT TRANSLATED; 
THE CSW IS RETRANSLATED ONLY WHEN 
A CCB IS AVAILABLE, AND WHEN THE 
CCB HAS BEEN TRANSLATED DURING CCW 
TRANSLATION. 



**^2******* 

* MODIFY * 
♦'ENTR'TO IND * 

*HODDL RELOCATED* 
* CLEAR I/O * 

* AREA * 
*********** 



* J3 * 

♦ * 
♦*♦* 



* GET DEVICE * 

* INTERRUPT * 

* ADDRESS * 

* * 
***************** 



♦ TRACE *. 

OR IGNORE . 

*I/0 EVENTS.* 

*.* H2 .* 



CKDT?VCE1 .*. 

AS *. 

,* FIRST *. 
.♦ DEVICE 
*. TNTFRRUPT^D 



. *. 




CKDEVrK? .*. 




BH *. 




PS *. 




.♦SECOND *. 




.♦SECOND *. 




DEVICE * 


YES 


.* DEVICE * 


YES 


INTERRUPTED 


*..X 


♦. INTERRUPTED 


*- .X 



.♦ THIRD ♦. 

♦ DEVICE *. YESX 

INTERRUPTED ...... 



.* THIRD *. 

.* DEVICE *. YES 

*. TNTPRROPTED .*..X. 







y. ♦ G5* 


X 


* * 


* * 

* GS ♦ 

* ♦ 
♦ *** 




OVFLIND .*. 

ns *. 

.* *. 


m 

ERROR MESSAGE HC2HA 
INDICATES DEVICE 
NOT OPERABLE. 


.* SAVEAREA *. NO 

*. PULL .* 

*. . * . 
* . . * 

*. . * . 



**** 
PU ♦ 



DUMP *. 

IN 
•PROGRESS .♦ 



♦***G1** ******* 

♦ FROM ♦ 

♦ INTERRUPT ♦ 

♦ HANDLER * 
*************** 



**Vc:,******* 

♦SFT UP •*• * 

* TO INDICATE 
LOST ENTRY 

* DUE "^0 

♦ OVRRPLO?* * 
*********** 



* MOVE ANOTHER 

* ■BINTRY INTO 

* THP 

* SAVEA^EA 
**************** 

**** 



ENTRIES 
. IN I/O . 
*. AREA .* 



REFERENCES 
TO CDH5: 
CECt», CEH2 
CEJ4 



*****^H********** 

* * 

* SAVE I/O OLD * 

* PSW, CSW, AND ♦ 

* CAH * 

* * 
***************** 



.* HAS *. 
.* CCB BEEN 
*. TRANSLATED 



CLEAR r 

* SA'^E I/O * 

* EVT^NTS TO ♦ 

* PR PUT OUT * 

* ON NEXT * 

* TNTPBROPT * 
***************** 



REFERENCES 
TO CDJ5: 
CEA2, CED2 



*****jS********** 

* * 

* RESTORE CSW, * 

* CAH, AND * 

* RETURN * 

* ADDRESS * 
***************** 



**** 

* * 

* G1 * 
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Chart CE. I/O Trace: Tape Mode (PDAIDITT) (Part 2 of 2) 



***** 

«CD * 
♦ G5* 



OOTPOT .*. 

A2 ♦. 
.♦DEVICE *. 
.* I»D ON *. HO 
*. OBIPOT .*.., 
*. DIVICE .♦ 



***** 

♦ CD ♦ 

♦ J5 + 

* 4< 

« 
GOT 



B2 ♦. 
.♦OOTPOT *. 
YES .♦ DEVICE ♦. 
...♦. INTEERDPTED .* 



1,^lil,i^*Q2********** 

* * 

* GET FOB BOST ♦ 

* BYTE ♦ 

* ADDBESS ♦ 

* * 
***mi^************ 






DOIT 

iinifif.it*'g2********** 

♦ GET CHANNEL ♦ 

♦ AND UNIT * 

♦ ADDBISS, AND * 

♦ CSW ADDRESS ♦ 

♦ * 



X 

***** 

♦ CD ♦ 

♦ J5^ 

* * 

* 
OCT 



**** 

* * 

* P« ♦ 

* * 

**** 



»♦♦♦* 

♦CD ♦ 

* H5* 

♦ * 



*«***0t(********** 

♦ GET CHANN1?L ♦ 

♦ AND ONIT ♦ 

♦ ADDRESS FOR ♦ 

♦ SYS LOG * 

♦ * 
*******«********)|i 



*****13I|********>K* 

♦ * 

♦ GET ERPOP ♦ 

♦ CCW ♦ 

♦ ADDRESS * 

♦ * 
iti**************** 



♦ STORE CA» ♦ 

♦ * 

♦ * 

***:!(*« *********** 



♦ GO ♦ 

* * 
**** 



* NEITE 

I/O EVENTS 
♦ ON TAPE * 

********4>******** 



X 

*♦♦♦* 
♦CD * 
* H5+ 

* * 

* 

CLEAR 



.♦ IBROR ♦. YES 
. CONDITION .*..,. 
♦.POSSIBLE .♦ 



♦ 


Bft 


* 




. * 




* 




***n 






X 








. ♦. 






. ♦. 


Ha ♦. 






H5 ♦. 


.* I/O *, 






.♦ *, 


.♦ PROM ♦. YES 






.♦ X *. NO 


♦. ERROR .*... 






X+ . REPLY ...... 


♦. lOOTTNE .♦ 






♦. .* 


♦ . .♦ 






♦. . ♦ 


♦. .♦ 






♦. .♦ X 


* NO 






* YES *♦♦♦ 


**** 






* ♦ 


* * 






♦ JH* 


* ja ♦.X. 






* * 


* * 






**** 


**** 








X 






X 








**j5******* 


* * 






HODTFY BEGINS 


♦ CLEAR ♦ 






♦ (CB-B2) TO ♦ 
♦ RETORN TO * 


♦ I/O AREA ♦ 






* * 






♦ SOPVR ♦ 



****«**4>***4i***** 



*********** 



X 

***** 

♦CD ♦ 

♦ H5+ 

* * 

CLEAR 



* ca ♦ 

♦ * 
**** 
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Chart CF. I/O Trace: CSW Retranslate Routine 



* * 

* RETRCSH * 

* * 



* * 

* RETDRN * 

* * 



CSW 

ADDRESS 
= 



♦****C 2 ********** 



*D1 
THE CSW ftDDEESS WILt OKLY BE 
rRAKSLATED IP IT IS WITHIN 
THE LIMITS OF TSE CCPY BLOCK 
QDEOE. 



D2 *. 
.* CSW *. 
.ADDRESS LESS*. YES 
*THAH ELCK ADDR.*.... 
*0F CPY BLCK* 
*. *D1 .♦ 
*. .* 
* NO 



E2 *. 


**^^LiC-g2******** 


.* CSW *. 


* 


♦ ADDRESS *. NO 


* POINT TO NEXT 


<BLOCK .* 


. .. X*CCH COPY BLOCK 


*. ADDR +72 .* 


* 


*. *D1 .* 


* 



♦♦♦**F2*** ******* 

* * 

* ADD VIRTUAL * 

* BLOCK ADDRESS * 
*T0 CSW ADDRESS * 

* * 



♦♦♦**Q 2 ********** 



**ili:^,**il,******i^^i 



* * 

* RETURN * 



F3 *. 

* END * 

OF COPY 

BLOCK 

QDEOE 



* ♦ 

* RETURN * 

* * 
*************** 



i 
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Chart Dh, F/L Trace: Core-Wrap Mode (PD?^IDFTW) 



* * 



* ENTER FROM * 

* SDPEBVISOE * 

* CALL ROUTINE * 



* ENTER FROH * 

* FETCE/LOAD ♦ 

* EODTINE * 



STCENTEB . *. 


FLENTER .*. 


B1 *. 




B2 *. 


. * * . 




.* *. 


.* FIRST *. YIS YES .* FIRST ♦. 


*. TIME .*. 


...X... 


*. TIME .* 


*. . * 




*. .* 


*. .* 




*. . * 


*. .* 


X 


*. .* 


* NO 


*♦♦* 


* NO 


**** 


* * 


*♦** 


* * 


♦ Ri* ♦ 


« * 


* CI *.X. 


* * 


* C2 *.X. 


* * 


♦*♦* 


* ♦ 


**** 




**** 


SAVEPSW X 




X 


*****el ********** 




♦****C2 ♦***♦*♦*** 


* * 




* SAVE * 


* SA^E fALDE * 




* CALLING * 


* AND ADDRESS * 




* PABTITION * 


* OF SVC * 




* IDENTIFIER * 



l|<*:f ************** 



* SOPEBVISOR * 



jPIK) 



D2 *. 

.IS FETCH*. 

. * FROM *. 

, SELECTED 

*. PARTITION.* 



*****E 2 ********** 

* * 

* BtJILD F/L * 

* EVENT ENTEI * 

* INCREMENT * 

* POINTER * 



ALTERNATE 
SAVE 
. AREA 



* * 

* SAVE ADDR. * 

* OF ALTERNATE * 

* AREA * 



STILL 

IN SAVE 

AREA 



* « 

*GET ADDRESS OF * 

X* START OF * 

* SAVE AREA * 

* * 



ENTCHNG X 

**C£^ ******* 

* MODIFY * 
* INITIAL 

♦ ENTRY 
*INSTRUCTIONS 

* * 



♦*Da******* 
* INSERT * 

* 'SAfEPSW * 
(MAIN SVC) 

* CODING IN * 
PREFACE TABLE 



SETTEST 

**E4******* 
MOVE 'IGNORE* 

* PARTITIONS' * 
* PARAMETERS TO 

* TEST IN- * 
*STROCTIONS * 



ifilfif**fH^i**:/^H,**^i** 



♦***♦♦♦♦*♦** 



* COMPOTE * 

* AND SAVE * 

* ADDR. OF SAVE * 

* AREA * 

* ♦ 



* SET * 

* POINTER * 

* FOB NEXT ♦ 

* ENTRY * 

3ti « # 3i( :<( * * « :«< 4: * 3^ # :(c 4i « 3); 



ENTRY 


*. 


NO 


S«ITCH= 




*. . . . 


X'00« 


* 




.* 






*. , * 




X 


* YES 




**** 
* 
* CI 


X 




* 


**** 




**** 



\ 
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Chart DB. F/L Trace: Print Mode CPDAIDFTP) (Part 1 of 2) 



* BHTBF PEOM * 

* S0PB8VISOE * 

* SIO ROOTIHB * 



SETBR X 

* HOMPt * 

♦ RETORH JIBDR ' 
♦ TO RETOBS TO 

* SIO ROOTIHB ' 

♦ ♦ 



RESTSBT 

MOTE 'IGliaaE* 

* MRTITIOBS' * 
♦ PiRAMBTERS TO 

* TEST IH- « 
♦STROCTIONS ♦ 



CO»T 

♦ B!)ILD CC« ♦ 

♦ FOR ERROR * 

♦ HESSRGE, GET ♦ 

♦ DOHMl DEVICE ♦ 

♦ STATOS ♦ 



* BUTIR PROH ♦ 

* miBRRtJPT * 

* HARDLER ♦ 



* ENTER FROH ♦ 

* FIRST SVC * 

* ROtlTIHE HOOK * 



SAVPSW 

««4> >t>4>B3 ***'*■*'***<*'* 

* SAVE F/L * 

* INDICATOR AND * 
♦CALLING ADDF IK* 
*LAST H BYTES OF* 

* PREFACE TABLE * 



* RETURN * 

* TO * 

* SOPBRVISOS * 



* D2 * 



.* ORIGINAL *. YES 
. ENTPl PROM .*.... 

*. BCOTINB .* 
*. *A5 .* 



*«**J|, 4 ********* 

* ENTER PROH * 

* SP.COND SVC * 

* ROUTINE HOOK * 



*SAVE IDRN'TlFIER* 

* OP CALLING * 

* PARTITION (PIK)* 



CI *. 

.* IS *. 

.* FETCH SVC *. 

*, ISSUED PROM . 

*. SELECTED .* 

♦.PART .* 



*A'> 
THR BRANCH ADDRESS IS 
DETERMINED AT THE 
INITIAL ENTRY, THIS 
DECISION IS SHOWN ONLY 
AS AN MD IN FOLLOWING 
■PRl? LOGIC - IT DOIS NOT 
APPEAR IN TH1? LISTING. 



YFS 



♦ KS * 



^itlillili*******!*]^!:***]* 



YES ,* DEVICE 
...*. INVOLVED 

*. IN SIO 



*** 



* P3 * 

* * 

♦♦♦♦ 

CKCQP 



X 

***♦ 

* * 

* D2 * 

* ♦ 



* * 

* P3 *.X 



♦♦♦♦ 
HOVSTAT X 

« * 

* GET ♦ 

* DEVICE * 

* STATOS * 

* * 

**4>*4i Hi***** ****«« 



♦ *♦* 

* * 

* K5 * 

* * 

TRYPT 



* SET * 

OVERFLOW 

FLAG 



YES .* STATOS= 
....*. DEVICE 
*. END 



* * 

* K5 * 



HOVDP 

« * # 4l *Q (| « 4! « « * * !)> * He « 

* MOVE ENTRY * 

* FIELD nP AND * 

* MOVE IN NEN ♦ 

* ENTRY * 

* * 



*. 
♦ . 


AREA 
POLL 

*. .** 


♦ 

* 


* 


**** 


* YES 






♦DC * 

* F2 *.X 

♦ * 








**** 










DOPT 


J2* 





* GET CHANNEL * 

* AND ONIT, GET * 

* CCR ADDR * 

* 
Hi**************** 



**** 
ERRRR X 

4<**«4tK 2**** ****** 

* * 

* STORE * 

* CCW ADDRESS * 

* IN CAW * 

* ♦ 



.X. , 

X 

♦ *♦* 

* * 

* K5 * 

* * 
*♦♦* 



* FORMAT ♦ 

* ENTRIES TO * 

* HR POT OOT * 

* ♦ 
4c » * 4i 4c )|i 4t « 4< 4> * »> * 4> * * * 



4c** *4>JS ♦♦*♦♦♦♦♦♦♦ 

* * 

* CLEAR ♦ 

* SAVE ♦ 

* AREA * 

«< 4< 

4< 4< * 4>4c 4> * Id * * * 4> * * * 4c * 



♦ *4t** 
♦DC * 

♦ B2* 
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Chart DC. F/L Trace: Print Mode (PDAIDFTP) (Fart 2 of 2) 



***** 

♦DB * 
* K2* 



* Hi ]|EQ 2 ****** ****** 



i< ****** ********** 



%, 



.♦ 


ONLY ♦, 


IBS 


*. 


1ST CC» 


*. . . . 


♦. 


EXICUTED .* 
*, . * 






*. .* 


X 




* NO 


*»*♦ 

*DB 

* J2 

* * 

* 




X 


DOPT 




.♦. 






G2 *. 




ERROR 


♦OUTPUT *. 




MSG .* 


OR ♦. 




X. .*. 


EEROB 


* 


* 


MSG .♦ 





:^it'***E2********** 



i|<]|<*4c** *********** 



**:4<*J2********* 

* RETOEN TO * 

* SDPER7IS0R * 

* * 

4<>|>>|c4e * :» 4t4<******* 



ERHCON 


D 


K 




WHICH 


.* *. 




. * 


DEflCE *. 


?ES 


*, 


OPERABLE 


*. . . . 


* 


• * 
*. .* 






*. .* 


X 




* NO 


*** 








* K 








* 








* 




X 




* 


»*G!» ************ 


* 


PRINT ERROR 
HESSR6E 


* 


* 


4( 


Z2Hh 


♦ 



************* 



**Jt»******* 

* MODIFY * 
TEST 1 

{DB-B«l TO 
RETOIN TO 

* SOPVP * 
*********** 
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Chart DD, F/L Trace: Tape Wode (FDT^IDFTT) (Part 1 of 2) 



* ENTEE FECM * 

* SDPEEVISOR * 

* SIO EOOTxNE * 



♦*B1 ******* 

* MODIFY * 

* EETOEN IDDB 
TO EETOEN TO 

* SIO EOOTINE 

* * 



****A2********* 

* ENTEE FEOH * 

* INTEERDPT * 

* HANDLEE * 



RESTS ET 

♦♦CI******* 
HOVE 'IGNORE* 

* PARTITIONS* * 
* PAEAHETESS TO ■ 

* TEST IN- * 
*STROCTIONS * 

♦♦♦♦♦♦♦♦♦♦♦ 



♦♦D2**+**^* 

* SET MODE * 
TO INDICATE 

7-TRACK 
TAPE. 800 

* BPI * 

♦ :<<♦♦♦♦♦♦♦♦♦ 



♦ ♦♦♦J|^3 ♦♦♦♦♦♦♦♦♦ 

* ENTER FROM * 

* FIRST SVC * 

* ROUTINE HOOK * 



SA VPSH 

♦♦♦♦♦g3^*^« ♦♦♦♦♦♦ 

* SAVE F/L * 

* INDICATOR AND * 

* CALLING ADDR * 
*IN LAST t» BYTES* 

* OF PREFACE * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦C 3 ♦«♦♦♦♦♦♦♦ 

* RET0EN TO * 

* SDPERVISOH * 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ D3 
THE BRANCH ADDRESS IS 
DETERMINED AT THE INITIAL 
ENTRY. THIS DECISION 
SHOWN ONLY AS AN AID 
FOLLOWING THE LOGIC - IT 
DOES NOT APPEAR IN THE 
LISTING. 



**♦♦ A *********** 

* ENTER FROM * 

* SECOND SVC * 

* ROOTINE HOOK * 



* ♦♦♦♦gi| ♦♦♦♦♦♦♦♦♦♦ 

* * 
*SAVE IDENTIFIER* 

* OF CALLING * 

* PARTITION * 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



.* FETCH SVC *. NO 
. ISSUED FROM . *. . . 
*. SELECTED .* 
♦.PART..* 



T/O 

AREA 
FULL 



* GR-^ CHANNEL * 

* AND ONIT, GET * 

* CCB ADDR * 

* * 
♦♦^♦♦♦♦♦♦♦♦♦♦♦♦♦^ 

♦ ♦♦♦♦ 

♦ *nE * 

♦ * F4 *.X. 
* ♦ * , 

* ♦** 
PRRHR X 

* ♦^♦♦^^[^♦♦♦♦♦♦♦♦♦« 

* * 

* STORE CCW * 

* ADDRESS IN * 

* CSW * 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ ♦♦♦♦£; 1 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

* GET NEW * 

* ENTRY * 

* POINTS * 

♦ * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



* CLEAR * 

* SAVE * 

* AREA * 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ ♦♦♦ 

♦ ♦ 

♦ F2 * 

♦ ♦ 
♦*♦* 



* ORIGINAL 

ENTRY FROM 

*. RODTINE . 

*. *D3 .* 






♦ ♦Fl^^*«^^>C^ 



♦♦♦♦♦♦*♦«*♦ 



SIOENTSV .*. 

G2 *. 

. * *. 




SOPENTER X 
CKDEVST .*. 

G3 *. 

.* *. 


.* DEVICE * 
*. INVOLVED 


YES 
*. . . . 


.* DEVICE 
*. INTERRDPTED 


*. IN SIO .* 




*. . * 


*. . * 




* . .* 


* NO 

♦*** 




* YES 


* * 




X, 


* H2 *.X. 

* ♦ 




♦*** X 






CKCQP .*. 

S2 *. 
.* *. 




MOVSTAT X 

,^*,+H3***'^*"** 


.* DIVICE * 
*. AVAILABLE 


NO 
*. . . . 


* GET DEVICE 

* STATDS 



H2 * 
♦ 
♦ **♦ 



MOVDP X 

* MOVE T?NTRY 

* FIELD UP AND 

* MOVE TN NEW 

* ENTRY 
♦ 

* ♦♦♦♦♦♦♦♦♦♦♦♦♦♦: 
* 

♦ ♦*♦ 



♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦; 



♦♦♦♦H 4 ********* 

* RETURN TO * 

* SUPERVISOR * 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



* Ha * 

* ♦ 
♦*♦* 

TRYPT 



YES .* STATDS = 

*. DEVICE 

*. END 



♦ ♦♦♦ 

* ♦ 

* B5 * 

* * 

♦ ♦♦♦ 
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Chart DE. F/L Trace: Tape Mode (PDAIDFTT) (Part 2 of 2) 



*♦♦♦* 

* D5* 



IX ))< * « itt )tc * !)• :to|t * # « 41 * 



E2 *. 

. * ♦ 

I/O 
COKPLETE 



.* CULT 

1ST CC« 

♦.EXECUTED 



***** 
*DD * 

* C5* 

♦ * 



♦*«* 



(52 



.*. 



ERHQR .*ODTPDT *. 

* * MSG .* OE * 

* J2 *X. ...*. FRIOB 

* * *. HSG .* 
♦*** *. .* 



*****|s[ 2 ********** 



EERCOND X 




WHICH 


»"''''■.. 




.* 


DEVICE * 


YES 


*. 


OPERABLE 




* 


. * 
♦ . .* 






*, . * 






* NO 


***** 
*DT) * 








* O")* 








* ♦ 








* 








ERHHR 




k 




***Gtt«***** ****** 


* 


PRIST Ei?HOR 

HESSIGE 


* 


* 


4 


:2U 


* 



***************** 



Ha 



«*!ii:4i«««^* 

♦ ♦** 

* :| 

* J2 *.l 



EEPLY 

,*' 

*. . * 
* lES 



**J4******* 

* MODIFY * 
*TEST1 1dE-B4)* 

* TO RETORN * 
♦ TO StJP?B * 

* * 

*4i********* 



) 
^ 
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Chart Eh. GSVC Traces Core-Wrap iVlode (PDAIDGTW) (Part 1 of 2) 



* * 

* SIOENT ♦ 

* ♦ 



|fe^>''^\v?^'l4#€IS'^^^F^^ 



?'>%! 'tf||f4f|lf*'*«>^ 



hH *. 

.* HAS *. 
TRRCB OR ■• 
TGNORF, 
. SPECIFIBP. ^ 

*. .* 

*. . * 



.* IAS *. 
IT AN *. 
SIO 
.INTEEEOPT.* 



CI *. 

.* WAS ♦. 

IT AN *. 

I/O 

, INTEBROPT.* 



SfCENTEI .*. 


. 


01 *, 


X 


.* FIRST *. 


*i,tiii,i;)2********* 


.* TIME *. YES 


* EFTORN 


*.THROOGH THIS .♦ 


♦ TO 


♦. EOOTINE .* 


* SOPIHVISOR 


*. ♦H3 .* 


3|i4c4i4cii|i9|c4i#!fc]K4i*)|cKt* 


*. .* X 




]|> }J0 **♦♦♦ 




**** , *EB * 




*EB * . * B3* 




* J5 *.X. ♦ ♦ 




* * . ♦ 




♦*** . SVCINIT 




SVCPT X 




*4c3ti:(e:)eig ^ i|<4e!|!*it>4ti4t](t4cii 




* SAVE ♦ 




* THE ♦ 




* PIK OH PID * 




* 7ALDE * 





its**r^**i^c****iti 



B3 *. 
.♦APE HE ♦. 
. ♦ ALL DONE *. XES 

♦.SEARCHING THE.* 

*. SVC .* 

♦.TABLE.* 



* . 



NO 



.* THIS SVC *. YES 

*. TO BE SAVED .* 

*. OR IGNORD.* 



**t**D3 ♦♦♦*♦***♦♦ 

* INCREMENT * 

* POINTER TO * 

* NEXT SVC * 

* TO BE * 

* CHECKED * 



NO .* HAVE ALL 
...*. SIX SVC'S 
♦ . BEEN 
♦.CHKD ,* 



4 

3RP. * til 

P7?RS *"¥, 



4<!((:4c*]|<](e*4t*3|i4i*4i*s«<** ,i 



Wt^^^M 



B5 

.♦ARE ??E ♦. 
" ALL DONE * 

ST^ARPHING 

*. THE SVC .* 

♦.'TABLE.* 

♦ . .♦ 

* NO 



.* THIS SVC * 
. TO BT? SAVED 
♦OR TGNORED.* 



* TNfCRRilENT * 

* POINTER * 

* TO NRXT ♦ 

* SVC TO BE * 

* rWKCKED * 



.HAVE ALL^. 
SIX SVC'S 

BE?N 
CHT^CFBD . 



4;^^f|T^i 






♦ *** 

* * 

♦ P5 * 



♦ *** 

r 

^«:|t)tc4c17S ♦♦♦♦♦♦♦♦*♦ 

♦ GET ADDRESS * 

♦ OP THE NEXT ♦ 

♦ A'TAILABLF ♦ 

♦ FNTRY ♦ 

♦ ♦ 



4c >|t 4c I|<*:G S ♦♦♦♦♦♦♦♦ ♦♦ 

♦ SAVE SVC OLD * 

♦ PSW AND REGS * 

♦ 0+1, * 

♦ RESTORE * 

♦ OSER REGS * 



.* THIS SVC *. 

. ISSOBD PROM . 

♦ .SELECTED .♦ 

♦.PARTS.* 



.♦ WAS A ♦. 
SVC 

SPECIPIID 
*K3 



THIS INSTROCTION IS 
MODIFIED BY THE INST. 
LOCATED AT EB-B 1 . 



SHADED AREA IS MODIFIED 
BT TFP TNSTRUCTIQMS 
LOCATED AT EB-F2. 



SAVE 
AREA 

T'HLL 



* * 

* F5 * 

* * 



* POINT TO ♦ 

* THE START * 

* ADDRESS O-P * 

* THE SAVE AREA * 

* * 



♦ THCREMENT TQ ♦ 

♦ NEXT AVAIL ♦ 

♦ ENTRY ♦ 

♦ * 

Dc «« «« 4i*4i #4c* ** *« 3f* 



«4iiici|>*Kl ♦♦♦*♦♦♦♦♦♦ 

* SET OP FOR * 

* ONE OF * 

* THE ♦ 

* FOLLOWING * 

* LOOPS * 



♦K3 
THIS INSTRUCTION IS 
MODIFIED Bf THE INST. 
LOCATED AT EB-E1. 
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Chart EB, GSVC Trace: Core-Wrap Mode CPDAIDGTW) (Part 2 of 2) 



♦BA * 
♦ D1« 



SfCIHIT X 

* NOP msT. ♦ 

♦AT»S?CBNTBT« ♦ 

*T0 PRETEST FOE-* 

♦ TREE BUT BY * 

* THIS ETS ♦ 



RBSTSET 1 

•*c3 ***<'*** 

*HODIFf P»E-* 

♦TITIOB TESTS ♦ 

*«ITH CE RESPOH- 

♦ SES IH PBI- ♦ 

♦ PIkCE TABLE * 



WEBB 
ANY S?C«S 
.SPECIFIED.' 



♦ MODIFY ♦ 
* »ALLTBACE« ♦ 

* TO AM ♦ 

♦OHCORDITIOBAL* 

* BIAHCH ♦ 



.* TBACl *, 
,♦ OR *. 

.X*. ISHORE 

♦.SPECIFIED.* 



HODIPY 

•BRHCH1' 

A1ID»BSHCH2« 

* * 



* SATE * 

* REGS * 

* 5 AND 7 ♦ 

* * 



ALTEHNATl ♦. 
AREA 
.SPECIFIED.* 



NOALT 

]ti##4i)|.l}2********** 

* LOAD SAVE * 

* ARIA START * 

* ADDR, AND ♦ 

* PD AREA END * 

* AtDRESS ♦ 



SETOP X 

*LOAD BEGINNING * 

* END ENDING * 

* ADDRESS OF * 

* ALTERNATE * 

* AREA * 
41** «4> 4'4>*4'*4i *4<** 4>4< 



. X. 



DOIT X 

* DETERMINE * 

* EVENT * 

* CAPACITY OP * 

* THE SAVE * 
♦AREA *J«» * 
****«*4i**4<****4<** 



* J* 
SUBTRACT THE LOWER 
ADDRESS PROM THE 
OPPEB ADDRESS AND 
DEVIDE THE PPSOLT 
BY THE LENGTH OF 
ONE TRACE ENTRY. 



♦ ♦ 

♦ R5 * 

♦ * 



* DECREMENT -^HB * 

* END ADDRESS » 

* AND STORE THE * 
*NEW EWD ADDRESS* 

* * 
*4i4i4>*4i**4>4<4t**4>*** 



WR^POO X 

♦ LOAD SATE * 
♦AREA BEGINNING * 

♦ ADDRESS. CLEAR * 
♦FIRST BLOCK IN * 

♦ SATE AREA * 



♦ H5 ♦ 

* * 
**** 



111**** 
*1»A * 
* B1* 
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Chart EC. GSVC Trace: Print Mode (PDAIDGTP) (Part 1 of 3) 



****A1 ********* 

* SIO ENTBT * 

* POINT * 

* * 
*************** 



SIOENTS? .*. 



.* IS *, YES 

. THIS ODB .*.... 
*. DEVICE .* 



**** 

♦ * , 

♦ CI *.l. 



IS ♦.NO 

DEVICE .*. .. 

BUSY .* 



****D1 ********* 

* RETOEN * 

* TO * 

* SOPEBVISOE * 
*************** 



* SA VE * 

* DEVICE * 

* STSTOS * 

* * 
***♦♦**♦******♦*♦ 



***a3********* 

I/O 

INTEEBOPT 

ENTBY POINT 

************** 



INTEKEOPT 
FEOM 00 B 
. OOTPOT . 
♦DEVICE. * 



**** 

* * 

* CI * 

* * 
**** 



♦ *B(******** 
MODIFY TES^I* 

* (Bd-Cl) SND * 
CKCQP (FC-C1) 

* TO BETOBN * 
* TO SDPVB * 

*********** 



**** 

* * 

* * 
**** 



**** 

* * 

* r5 * 



I/O 

SBEA 

*.FOLL 



.* OOTPOT 
DEVICE 

*, OPERABLE 



*****P2********** 

* * 

* SAVE * 

* CSH * 

* AND * 

* CAW * 
***************** 



* G2 * 

* * 
♦ *** 

DOPT X 

*****(; 2********* 

* SAVE 

* CHANNEL AND 

* UNIT 

* ADDEESS OF 

* OOTPDT DEVICE 
**************** 



.* WAS 
.♦ONLY SPAC 
CCW 
♦.BXECOTED 



X 




*** 


(t*54*******x 


♦ * 




G5 ♦ 


****Q3******* 


** 




SPECIFY 






.♦ «AS 


BETOEN 


* 




SYSLOG 




YES 


.♦ OOTPOT 


TO 


* 




AS 




... * 


AN EBPO 


SOPEBVISOE 


* 




OOTPOT 






*. ISR 


*************** 




DEVICE 






♦ . 






***************** 


X 


♦ . . ♦ 



♦*♦* 

» * 

* H2 *.X 



**** 
EBB HE X 

*»»**tj2********* 

♦ POT 

♦ CCi 

♦ lEDRESS 



IN 



***j2********** 
SIO 
♦ TRY TO 

FEINT OOT 
* INFOEMATION * 

***************** 



*****[|j:) ********** 

♦ POT EEBOB * 

♦ MESSAGE CCW ♦ 

♦ ADDPESS ♦ 

♦ IN CAW ♦ 

♦ FOE 4C2(JA * 
********♦*♦♦*♦*** 



*****fjS ********** 



* 


CLEAR 


* 


T/0 


* 


AREA 






***** 


******** 


**** 






* 




X. . . 


* JS 


*.X 




* 


* 




***< 






Cr.EAB 




I 


*****j5****** 


* 


BESTORE 


* 


CSW 


* 


A«D 


* 


C 


^w 



***************** 
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Chart ED. GSVC Trace: Print Mcde (PDAIDGTP) (Part 2 cf 3) 



*B1 
MODIFIED BY 
INSTRUCTIONS 
AT EE-D5. 



SVCPT X 

* SAVE * 

* PIK * 

* OR * 

* PID * 

* VALUE * 



.*IS THIS*. 

. *SVC ISSUED *. 

.FROM SELECTED.^ 

*. PART .* 



* * 

* SVCENTRT * 

* * 

4: «4cii(4: *:(C9(| :4ct ** ** * 



FIRST *. YES 
TIME .*.... 
THROUGH .* 



INSTRUCTION AT 
B3 IS NOP' ED BY 
•SVCINTT' ROUTINE SO 
SUBSEQUENT LOGIC 
FLOW WILL ALWAYS BE 
TO SVrPT ROUTINE. 



* m 

THE INFOEHATION IS 

PUT IN THE PREFACE 

TABLE BY THE PDAID 

INITIALIZER AND USED 

IN THE DECISIONS AT ED-C2. 



*D1 

THE INITIALIZER CONVERTS 
THE PARTITIONS, NOT 
SPECIFIED TO 
BE TRACED, TO IGNORE; 
TESTS THE IGNORE 
OPTIONS, WHETHER 
SPECIFIED OE CON- 
VERTED BY THE 
INITIALIZER, TO SEE 
IP ONE OF THEM IS 
THE PARTITION CAUSI»iG 
THE INTERRUPT. 



* RETURN * 

* TO SUPERVISOR * 

* * 

4i * 4 Jte « « :(t # * ^ :4i :(c :): :)c :4c 



SVCTNTT T 

* NOP PRE?. * 
♦TNST. TO PBE-* 

* VENT REENTER- 

*rm 'SVCINIT'* 

* ROUTINE * 



RESTSKT X 

* MODIFY PART- * 

* ITION CHOICES ♦ 

* WITH VALUES * 

* FROM PREFACE * 

* TABLE *Ca * 



RELOr 

* SAVE WORK ♦ 

* REGISTERS * 

* PREPARE FOR * 

* RELOCATION * 

* OF ADCONS * 



FOR *% 

FOLLOWING * , 
LOOP * 



:OHPARE X 

5RNCH1 .*. 

G1 ♦. 

.*ARE WE *. 

.* ALL DONE *. 

♦.SEARCHING THE, 

*. SVC .* 

*. TABLE.* 

* . . * 

* NO 



K1 *. 

.*IS THIS*. 

.* THE SVC *. 

. THAT CAUSED . 

*.THE INTE-.* 

*.BROPT.* 



F2 *. 

. * TRACE *. 

OE IGNORE 

OPTION 

•SPECIFIED. 

*. *B1 .* 



TRACE .* TRACE *. NO 
* X*. ALL .*.. . 

*. SVC'S .* 



***** 

*EE * SAVOM 

* B2* 






NO 



:(c4c4:*4 J1 *#>tc:4(*:^*:4ii4<* 

* HOVE * 

* POINTER * 

* TO NEXT * 

* SVC TO * 

* CHECK * 

3)1 :4c 4< * ]»: * :jc :«i :4c :(c :4t « :(c ;{( 3^ * t 



.* HAVE *. 
NO .* ALL SIX *. 
, ..*. SVC'S BEEN . 
*. CHECKED .* 



* YES 

*. SAVUW 
X 
***** 



X* FOE * 

* FOLLOWING ♦ 

* LOOP * 
***************** 



GH *. 

.*ARF «E *. 

* ALL DONE *. 

SEARCHING . 

*. THE SVC .* 

*. TABLE.* 

*. .♦ 

* NO 



*♦**:(.**♦*****»*#* 



****K2********* 

* RETURN * 

* TO * 

* SUPERVISOR * 

^:4<*^«4********* 



*J3 
FRAMED AREA INDICATES 
CODING THAT IS NOT 
PRESENT IN THE ASSEMBLY 
' LISTING BUT IS A RESULT 
^ OF PROGRAM MODIFICATION 
BY THE 'SVCINIT' 
ROUTINE. 



C0MP2 

BRNCH2 .*, 

H4 *. 
.*1S THIS*. 
YES .* THE SVC *. 
. . .*. THAT CAUSED . 
*.THE INTE-.* 
♦.RRUPT.* 
*. .* 
* NO 



* ♦***JH * :|c :tc:(c :«,:). 4c « 4c ;tc 

* MOVE * 

* POINTER * 

* TO NEXT * 

* SVC TO * 

* CHECK * 

41 4<**** *********** 



.* HAVE *. 
.* ALL SIX *. NO 
. SVC'S BEEN .*.., 
*. CHECKED .* 



X 
***** 

*EE ♦ 
* Bt** 

* * 



***** 

*EE * 

* B2*SAVUM 
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Chart EE. GSVC Trace: Print Mcde (PDAIDGTP) (Part 3 of 3> 



♦♦*** REFERENCES 

* ♦TO EEB2: 

» ♦♦1DF3, EDG1 

♦ * EDKI, EDM 



***** 

♦ED * 

♦ ?M 



.♦ ABE ♦. 
.TRERE ENOOGH*. NO 
. ENTBIBS TO ,*... 
*. FORMAT .♦ 



**** 

* * 

* C3 * 



ABBA 
FOLL 



GOPOBM 
FOBHAT X 

*****^'\********** 

♦ LOAD ♦ 

♦ UPPER ENTBY ♦ 

♦ ADDRESS AND ♦ 

♦ I/O AREA ♦ 

♦ ADDRESS ♦ 
***************** 



**** 

* * 

♦ El ♦.X 



*♦♦* 
F0RHAT1 X 

*****^'\********** 



***************** 



NO .♦ SAVE 

,..*. ABEA 

♦. FOLL 



**-S^2******* 

* * 
POST 

OVFBFLOW 
INDICATOR 

* * 
*********** 



♦ HOVE ap * 

♦ ENTRIES IN ♦ 

♦ FIELD ♦ 

♦ * 
***************** 



*****]^-^********** 

♦ GET OPPEH ♦ 
♦ENTRY ADDEESS. ♦ 
♦LOAD SAVE AREA ♦ 

♦ START ADDR ♦ 

♦ * 
***************** 



.X. 

X 

♦♦♦* 

♦ * 

♦ C3 ♦ 

♦ * 

***♦ 



*****f^********** 



**************** 



**^i**^-^ ********** 
♦MOVE BLANKS !»-♦ 

♦ TO PRINT LINE ♦ 
♦UPDATE I/O AREA+ 

♦ PNTR AND SAVE ♦ 

♦ AREA POINTER ♦ 
***************** 



♦J2 
ANSWER WILL EE YES IF 
DECISION AT ED-F2 = IGNORE 
AND NO IF 
DECISION AT ED-F2 = TRACE. 



**4<**il3 ♦♦♦♦♦♦♦♦♦♦ 

* * 

♦ STORE NEW ♦ 
♦PRINTER REST OR £♦ 

♦ REGS ♦ 

* * 
***************** 



****j'^ ********* 

♦ RETURN TO ♦ 

♦ SUPERVISOR ♦ 

♦ * 
*************** 



TRACE 

ALL 
SVC'S 



**cn******* 

♦ CHANGE ♦ 
♦ 'ALLTRAC!' ♦ 

♦FROM A HOP TO «♦ 
♦UNCONDITIONAL^ 

♦ BRANCH ♦ 
*********** 



OKIGN X 

*****PH********** 

♦CHAIN SPACE CCH^ 
♦AND PRIST ecu. * 
♦SRT POINTER TO ♦ 

♦ LAST ENTRY ♦ 

♦ SAVE KVV.k * 
***************** 



♦ SET DP ♦ 

♦ FOR FOLLOWING ♦ 

♦ LOOP ♦ 

♦ * 
***************** 



NEXT X 

*****fH ********** 

♦ INSERT HOD. ♦ 

♦ LEVEL NnUBBR ♦ 

♦ IN •NAHE'IN ♦ 

♦ PREFACE, * 

♦ RESTORE REGS ♦ 
***************** 



YRS .♦ TGNORE *. 
.,..♦. OPTION 

♦.SPECIFIED.* 
♦. *J2 .♦ 



**ns******* 

♦ nODTPY * 
♦INSTROCTIONS 
♦ AT 'BRHCHT 
♦ PND •PRMCH2' 



*K2 
*********** 



.♦. 
G1 ♦. 

ENTRIES 


♦. YES 
.*. .. . 


CONTINUE 

*****Q2********** 

. . . X+ X'ftD'S ♦ 


SAVESTDF X 

*****Q^ ********** 

♦ SAVE SVC ♦ 

♦ OLD PSW- ♦ 

♦ REGS flD ♦ 

♦ THE PART TION ♦ 

♦ IDENTIF ER ♦ 


FINAL X 

*****QH********** 

♦CLPAR SAVE AREA* 

♦ AND I/O AREA ♦ 

* * 


♦.FORMATTED. 

♦ . .♦ 

♦. . ♦ 


4i 


♦ UPDATE RECORD ♦ 

♦ POINTER ♦ 



***** 
♦ED ♦ 
• B2* 



♦K1 
THE FIRST TIME THROUGH. 
THE POINTER IS POINTING 
AT THE DECISION AT 
ED-C2. 



*K2 
THE RESULTS OF THESE 
INSTRUCTICKS CAN BE 
BEST SEEN BY LOOKING 
AT ED-G1.H1, AND 
COMPARING IHEM TO 
BD-Gft,Hi». 
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chart EF. GSVC Trace: Tape Mode (PDAIDGTT) (Fart 1 of 3) 



♦ SIO ♦ 

♦ ENTRY * 

♦ POINT * 



SIOENTSV .*. 

B1 *. 

. * IS * . 

.* THIS ♦. YES 

*. OtJB ,*.... 

*. OOTPOT .* 

*DE1?ICE.* 



* I/O * 

* INTEREDPT * 

* ENTRY POINT * 



YES .* INTEHRDPT *. 
....*. FROM OUR .* 
*. OOTPOT .* 
♦DEVICE.* 



♦ * 

♦ B4 * 

♦ * 



* * 

* CI *.X. 



NO 



* sa?E 

* DEVICE 

* STATUS 

*itc**Hi* ******* 



**** 

* * 

* C5 * 

* * 
**** 



**cn** 

* HODIFY * 
♦TEST1 (RG-C2)* 

♦ TO RETORN 
* TO SOPVR ■* 

* * 
m********** 



**** 

* * 

* J5 * 



*iti**D-[ *:tt*****i(f* 

* RBTDRN TO * 

* S0PER¥ISOR * 

* ♦ 

^■lfHtif:i)i-**'^e*****if* 



ERROR .* 







B2 *. 
.* BhlE *. 
NO .* »INE *. 

...,..*. BVEUTS BEEN .* 






♦. SI7ED .* 






* YES 

**** 






♦EH * 


****f[*i, 

RETO 

SDPSR 

*i^3Hi^f:tc:^i 


I 

\(*****il,* 

in TO * 
?ISC1 * 

* 


PRINT** 
CKENTRY X 

«4<***F2********** 

* sftfi est * 

* AND Cftl. SftVB * 
♦ALTEENiTE »RE» * 

* BEGIHNINS * 

* ADDRESS * 



♦♦♦♦g-a ♦**♦♦**♦♦ 

* RETORN TO * 

* SOPEEflSOR * 

* * 



.* IS * 
.* OOTPOT 
DEVICE 
♦.OPERABLE 



♦ G2 *.X 



♦ ♦** 
DOIT X 

*****Q 2********** 

* SATE * 

* CHAHNEL AND * 

* UNIT ADDRESS * 

* OF OOTPOT * 

* DEVICE * 
i^■iti^****i^i******^t** 



ERRHR X 

**iti*iif^2********** 

* POT * 

* CCt * 

* ADDRESS IN * 

* CAW * 

* * 

**1fff****it:*m****** 



TRY X 

*-i^*j2********** 
SIO 
* TRY TO 

«FITE OOT 
* INFORMATION * 



.* «AS ♦. 
YES . *ONLY FIRST * 
...*.CCW EXBCOTED 
*. *Ktt .♦ 



* * 

* G2 * 

♦ ♦*♦ 



**^f*Q2********'t: 

* RETORN TO * 

* SOPERVISOR ♦ 

* * 



* SPECIFY * 

* SYSL(» * 

* AS OOTPOT * 

* DEVICE * 

* * 

*itiiii*0********m*** 



G5 *. 

.* »AS ♦ 

OOTPOT 

AN ERROR 

HSG 

*. .* 
*. .* 



*****nn *#*****««* 


il,nt***^'y******** 


* POT FRROR 




* 


* KSS CCl 




* CtPAR 


* ADDRESS 




* I/O 


* IN CAW FOR 




* AREA 


* 4C2HA 




♦ 


*i^*****m******* 


** 


***its*****m***** 

**** * 
* * ,1. .... 


J 




* .7S *.X. 


**** 




* * 


* * 




**♦* 


* R2 * 




CLEAR r 


* * 




*****,^|^*****ilf** 


♦ ♦♦* 




* RESTORE 

* CSW AND 

* CAW. LOAD 

* RE-PORN A DDR 



*** 



*if******1f**** 



* C5 * 

* * 



♦ K4 
»AS THE CCW 
CHAIN BROKEN 
IF YES RETRY OOTPOT. 



i^^i*iii**ifm********* 



****J^C,********* 

* PETORN TO * 

* SOPFRVISOR * 

* ♦ 
*************** 



/' 
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Chart EG. GSVC Trace: Tape Mode (PDAIDGTT) (Fart 2 of 3) 



:iliiti**J^ 3*iti*****itf* 



*A4 
INSTROCTION IS CHANGED TO NOP : 
•SVCINIT' RODTINE SO 
SOBSEQOENT LOGIC FLOW 
WILL ALPftYS BE TO 
•SVCPT' ROOTTNR. 



***** 

*EH * 
♦ G4* 



*B1 
MODIFIED BY 
ISSTROCTIONS 
AI EH-D5. 



* SAVE PIK * 

* OB PID * 

* -VALDE * 

* * 
***************** 



**************:(( 



B3 ♦. 

* FIRST ♦ 

TIME 

THROUGH 

♦A« 



*C1 * 

THE INITIALIZER CONVERTS THE 
PARTITIONS NOT SPECIFIED TO BE 
TRACED TO IGNORE. THE IGNORE 
OPTIONS, WHETHER SPECIFIED OP. 
CONVERTED BY THE INITIALIZER, 
ARE TESTED TO SEE IF ONE OP 
THEM IS THE PARTITION CAUSING 
THE INTERRUPT. 



* THIS SVC * 

ISSUED FROM 

♦.SELECTED .* 

♦.PART .* 



THE INFORMATION IS POT 
IN THE PREFACE TABLE BY 
THE PDATD INITIALISER 
AND USED IN THE DECTSTON 

AT EG-r2. 



♦♦**D3 **♦****♦* 

* RETURN * 

* TO * 

* SUPERVISOR * 
*************** 



♦ *RC^******* 

* NOP PREV * 
♦TNST TO PRE- 

* VENT RFENfER- 
*ING 'SVriNIT* 

* ROU'^INP * 
*********** 



RESTSET" X 

*** 4<*(;; cj ******** itc* 

* MODIFY PARTI- * 

* TION CHOICES * 

* WITH VALUES * 

* FROM PREFACE * 

* TBBLE *ca * 
***************** 



hoc X 

* ****)) 5* ********* 

* SAVE WORK * 

* REGISTERS * 

* Pi^RPARE FOR * 

* Ri=;LnCA'^ION * 

* Of ADCONS * 
***************** 







^%Ct^ 






.*. ALLTRACE . 

F2 *. F3 

.* TRACE *. .* 

IGN .* OR IGNORE ♦. TRACE .* 

...*. OPTION .*.., X*. 

♦.SPECIFIED.* * 

*. *B1 .* 



./^^i^K.^^ ^^^. ^,i.^ ■^/:^^^|'Jj^^-^>^W^i^|^> ^^<v|; i§^ 



TRACE *. YES 

ALL .* 

SVC'S .* 



X. 

COMPARE X 
BRNCH1 .*. 

G1 *. 

.♦ARE HE *. 

.♦ ALL DONE ♦. 

♦ . SEARCHING .■■ 

*. THE SVC .♦ 

♦. TABLE. ♦ 

♦. .♦ 

♦ NO 



COMP 


2 X 




BRNCi2 .♦. 






HI *. 






.♦IS THIS*. 






♦ THE SVC 


* 




THAT CADSEE 






♦THE INTER-. 


* 




♦.RUPT .* 





*****J •] ********** 

♦ MOVE ♦ 

♦ POINTER ♦ 

♦ TO NEXT SVC ♦ 

♦ TO TEST ♦ 

♦ * 
***************** 



.♦ HAVE ♦. 
♦ ALL SIX 

SVC»S BEEN 
♦. CHECKED . 



♦ EH ♦ 

* C1 + 



***** 

♦EH ♦ SAVOM 
* cl^ 
* * 



SHADED AREA INDICATES 
CODING THAT IS NOT 
PRESENT IN THE ASSEMBLY 
LISTING BUT IS A RESULT 
OF PROGRAM MODIFICATION 
BT THE 'SVCINIT' 
ROUTINE, 



***************** 



♦ RETURN ♦ 

♦ TO ♦ 

♦ SDPFRVISOR ♦ 
*************** 






*****P4 ********** 

* * 

♦ SET UP FOR * 
X* FOLLOWING * 

♦ LOOP ♦ 

♦ * 
***************** 



G4 *. 

.♦ARE WE *. 

♦ ALL DONE * 

S'^ARCHING 

♦. THE svr .♦ 

*. TABLE. ♦ 



NO 



C0MP2 


X 


BRNCH2 


. *. 




m ♦. 




.♦IS THIS^. 


YES .* 


THF SVC * 




THAT CAUSED 


* 


THE INTFR-. 




♦.RUPT .♦ 



*****Jt(********** 

♦ MOVE ♦ 

♦ POINTER ♦ 

♦ TO NEXT ♦ 

♦ SVC TO TEST ♦ 

♦ * 
***************** 





.♦ HAVE ♦ 




.YES 


.♦ ALL SIX 


* 


X.. .♦ 


. SVC'S BEEN 






♦. CHECKED 


* 




♦. . ♦ 




X 


♦. .♦ 




***** 


* 




♦ EH ♦ 






♦ CI^SAVUM 





■I. 



;?' 
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chart EH. GSVC Trace: Tape Mode (PD?^IDGTT) (Part 3 of 3) 



*****BEFEBENCIS 

* *T0 EHC1: 

* **EGF3, EGG1 
* * EGKl, EGK4 



* LOAD EEGS * 

* 7 + 8. STORE * 
♦RETURN ADDRESS ♦ 

* * 
Hf^iif ************** 



SAVE 
AREA 
FULL 



* * 

* POST * 

* OVEEFLOH * 

* INDICATOR * 

* * 
****************iii 



*C2 
IF DECISION AT EG-F2 
ANSWER WILL BE »YES' 
IF DECISION AT EG-F2 
= IGNORE AND 'NO ' IF 
DECISION = TRACE 



*D2 
THE RESULTS OF THESE 
INSTRUCTIONS CAN BE 
BEST SEEN BY LOOKING 
AT EG-G1, HI AND 
COMPARING THEM TO 
EG-G4, HU, 



.* TRACE *. 
. ALL SVC'S . 

*. SPECIFIED.* 



**£t\******* 

* CHANGE * 
* 'ALLTRACE* * 

♦FROM A NOP TO A* 
♦UNCONDITIONAL* 

* BRANCH ♦ 
*********if* 



LOAD 

PUB 

ADDRESS 



TAPE 
DRT?E 

7 TRACK 



SWTCFTST .*. 

CS *. 
.♦IGN0R1? *. 
YES .* OPTION 

*. SPECIFIED 

*. *C? 



Hi*r>^******* 

* MODIFY * 
♦INSTRUCTIONS 

♦ AT 'BRNCH1 • 
♦AND 'BRNCH2' 

* +0 2 ♦ 
*********^t* 



**v^******* 

♦MODIFY CCH * 

CHAIN TO 

SKT 800 

BPT MODE 

* ♦ 

****tfi**if^it::tc* 



* MOVE UP ALL 

* ENTRIES IN 

* SAVE ARIA 
♦ 
*************** 



SAVESTUF X 

* ****S ■[*****ilt*^tii:dlc 

* SAVE SVC OLD * 

* PSW. SAVE ♦ 

* PEGS + 1 * 

* SAVE THE * 
♦PARTITION IDENT* 
**************iif** 



HANTPRNT .*. 

HI *. 

. * AE E * . 
.* THERE ♦. 
*. ENOUGH 

♦ENTRIES TO.^ 
♦OUTPUT.* 



DONTSET J. 

*****-pH******** 

♦ INSERT HOD. 

♦ LEVEL NUMBER 

♦ IN 'NAME' IN 

♦ PREFACE. 

♦ RESTORE RTGS. 
************** )i 



***************** 
* SVCPT 
X 

***** 

♦EG ♦ 
* B2^ 

* * 



NO 



***** 

♦ EF * 

♦ F2^ 



*****J1 *****4;:(c«:t<:{c 

♦ * 

♦ LOAD * 

♦ RETURN ♦ 

♦ ADDRESS ♦ 

♦ * 

**********:{c*«***:(( 
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chart EJ, QTAM Trace: Core-Wrap Wode (PDAIDQTW) (Part 1 of 3) 



t***fi^'\ ********* 
* * 

* SIOENT * 

*************** 



****j^2********* 

* * 

* lOENT * 

* * 
*************** 



****\H ********* 

* * 

* SVCENTRY * 

* * 
*************** 



* SAVE ♦ 

* WOHK * 

* REGS * 

* * 
***************** 



*****C1 ********** 

* * 

* POINT TO NEXT * 

* POSITION OF * 

* SAVE ARIA ♦ 

* * 
***************** 



*****<Q\ ********** 

* * 

* B0ILD * 

* IS* jypg ♦. 

* RECORD ♦ 

* * 
***************** 



* SATE * 

* WORK * 

* REGS * 

* * 
***************** 



*****Q2********** 

* * 

* POINT TO * 

* NEXT POSITION * 

* OF SAVE AREA ♦ 

* * 
***************** 



.* FIRST *. 

TIME 

THRO THIS 

. BNTRI . 



***** 
♦EL ♦ X 

* in* ENTR .*. 
* * E2 *. 

♦ .* HAS *. 

.♦INITIALIZER*. NO 

.X + .RODTINE BEEN ...... 

♦. ENTEBED .♦ 
♦. lET .* 

*. .♦ X 

* YES ***** 
♦EL ♦ 
♦ B2 + 



*F1 
ALTERED BI 
INSTRfJCTION 
AT EL-F1,P3. 



.♦ HERE ♦. 




.♦ANY TR CE/ ♦. 


YES 


♦IGNORE OPTIONS. 


♦. . . . 


♦.SPICIFIED.+ 




♦. *P .♦ 




♦ . .♦ 


X 


♦ NO 


***** 




♦EK ♦ 




♦ B2 + 


X 


* * 


***** 


* 


*EK ♦ 




* F3^ 




* * 




* 




07FLIND 





♦SAVE IDBNflFIER* 
♦OF INT^RRDPTED ♦ 
♦PARTITION (PTK) * 

***************** 



GU ♦. 

.♦IS THIS^. 

♦ PARTITION ♦ 

TO BE 
*. IGNORED . ♦ 



*****^H ********** 

♦ * 

♦ SAVE REGS n * 

♦ AND 1, AND ♦ 

♦ PARTITION ♦ 

♦ IDENTIFIER ♦ 
***************** 



**4titt*J(| ********** 

♦ * 

♦ SAVE ♦ 

♦ WORK ♦ 

♦ REGS ♦ 

♦ * 
***************** 



*4r***f^t| ********** 

* * 

* POINT TO NEXT ♦ 

* POSITION OF ♦. 

* SAVE AREA ♦ 

* * 
***************** 



****HCi ********* 

♦ RETURN TO ♦ 

♦ SOPFRVTSOR ♦ 

♦ * 
*************** 



*****l^iy********** 

* * 

♦ BUILD ♦ 
. X+ 'V TYPE ♦ 

♦ RECORD ♦ 

* * 
***************** 

'. OVERFLOW 

***** 
*jfv * 
* A5* 
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chart EK. QTAM Trace: Core-Wrap Mode (PDAIDQTW) (Part 2 of 3) 



***** 
*ifj * 
* i?«i* 



PHANED AREA 
IBDICiTES CODIRG 
THAT HAS BEER 
ALTEBED BY ISITZ 
OH CHABT EL. 



%^^^^^ 



***** 



.* TBACE/ 
IGHORE 
♦.SPECIFIED. 



'■H: %%|a:': ■'' i{ v;T>; ':^m-(.:'1/if.itf^ '-'^-^ 



**** 

* * 

* B'> *.X 



**** 
OWEnPLOi X 

*m***n'!,********** 

* * 

* POT NT TO HE IT • 

* P0<! OP SAVE ♦ 

* ARKA * 

* * 
***************** 



.FIRST DEYICE*. 

♦ .SPECIFIED TO .■■ 

*.BB TRACED.* 



.SECOHD DEVICE. YES. 
♦ .SPECIFIED TO .♦. .X. 
♦.BE TRACED.* 



.THIRD DEVICE*. YES „.,, 

♦ .SPECIFIED TO .* m 

♦ .BE TBACED.* ^'^^' 



***** 
♦EJ ♦ 
* F2^ 



.FIRST DEVICE^, YES 
.SPECIFIED TO ...... 

♦BE IGNORED. ♦ 



.SECOND DEVICE. YES 
♦.SPECIFIED TO .*.... 
♦BE IGNORED. ♦ 



.THIRD DEVICE^. YES 
♦.SPECIFIED TO .♦.. . 
♦BE IGNORED. ♦ 



♦ EETOSN TO 

♦ SOPERVISOR 
* 



OVFLIND X 

♦ STORE OSER ♦ 

♦ REGISTERS, ♦ 
. ..X^LOAD BEGINNIN3 * 

♦ AND END ADDH * 

♦ OF WRAP AREA * 

***itiit:*******Htiltif*ii: 



NO ,♦ SAVE 

. .*. AREA 

*. "nLL 



m*m**f)^iH********m 

♦ * 

♦ POINT TO ♦ 

♦ BEGINNING ♦ 

♦ OF SAVE AREA ♦ 

♦ ♦ 
***************** 



****JK^********* 

♦ RETOPN TO ♦ 

♦ SOPERVISOR ♦ 

♦ * 

*************** 



♦ I^ESTORE ♦ 

♦ «0^K ♦ 

♦ REGS ♦ 

♦ * 
***************** 



****yfy********* 

♦ RRT!It?N TO ♦ 

♦ SOPERVISOR ♦ 

♦ * 

*************** 






*****^-^********** 

* * 

* BUILD 'I' ♦ 

* TYPE ♦ 

* RECORD * 

* * 
***************** 



*****f^ 2********** 



***************** 



****K 4 ♦*♦*♦**** 

♦ RETORN TO ♦ 

♦ SOPERVISOR ♦ 

♦ * 
*************** 



\ 
^ 



**** 

* * 

* B5 * 

* ♦ 
**** 
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Chart EL. QTAM Trace: Core-Wrap Mode (PDAIDQTW) (Part 3 of 3) 



***** 

*EJ * 
* B4* 



***** 

*EJ * 
* E2* 



SVCINIT X 

* MODIFY * 

* 'FETPNT'TO * 
*PEOVIDE AN EXIT*. 

* TO THE SVC * 

* RODTINE * 

**********;4c 



**B2******* 
* MODIFY * 

* 'S7CENTRY' 

' SVCINIT* RTN 

* WILL NOT BE 
♦EE-FNTERED * 



*****C 2 ********** 

* * 

* MOVE'IGNOEE * 

* PSRTITION' PABA* 
♦METERS TO TEST * 

* INSTEOCTIONS * 
*****♦****♦*♦**#* 



*B3 
SUBTRACT THE LOWER ADDR 
FROM THE OPPER ADDR AND 
DIVIDE THE RESULT BY 
THE LENGTH OF THE 
ENTRY. 



THE RESULT OF THE 
MODIFICATIONS IS THE 
SHADED AREA ON CHART 



IGNORE 
OPTION 

.SELECTED 



**][)3»***3(<** 

* ALTER * 
♦CHECK DEVICE * 

* QUESTIONS FOE 
♦TRACE OPTION * 

♦ ♦ca ♦ 
«t********* 



E2 *. 

. * WERE *. 
THERE ANY 
TRACE OR 

. IGNORE . 
♦OPTIONS* 



**F')******* 

ALTER 'ENTR«* 

* TO BYPASS 
THE 'CKDEVCE' 

* CHAINS 

♦ *G3 ♦ 

**«******:)!:{< 



ALTER 'ENTR»* 
*T0 BRANCH TO 

THE 'CKDEVCE' 
* CHAINS 

* *G3 * 

*********** 



DOIT 7 

*****p£|**** ****** 

* DETERMINE * 

* SVEN'T' ♦ 

* CAPACITY OF * 

* THE SAVE ♦ 

* AREA *B3 * 
***************** 



*****(; 4* ********* 

* DECREMEN-^ * 

* END ADDRESS * 

* BY 17 BYTES * 

* AND STORE NEW * 

* ADDRESS * 
***************** 



*****D(4 ********** 



***************** 



BOPLY 

*****E4**** ****** 

♦ LOAD THE * 

♦ SAVE AREA * 

♦ BEGINNING ♦ 

♦ ADDRESS * 

♦ * 
***************** 



*****P4******** 

* PUT X'FF' 

* INTO FIRST 

* BYTE OF SAVE 

* AREA TO 

* CLEAR AREA 
*************** 



GETADDRS X 

*****(; 2*** + ****** 

* SAVE THE * 

* REGISTERS ♦ 

* USED BY * 

* THE ROUTINE ♦ 

* * 
***************** 



INSTRUCTION BLOCK 
AFFECTED IS LOCATED 
AT EJ-F2, 



***** 

♦ EJ * 

* R2* 



.♦HAS AN *. 
.♦ ALTERNATE ♦. YES 

, ARIA BEEN .* 

♦. SPECIFIED. ♦ 



NOALT X 

*****j1 ********** 

* LOAD THE * 
*PD SAVE ARIA'S * 

* BEGINNING AND ♦ 

* ENDING ♦ 

* ADDRESS * 
***************** 



SETUP 

*****j 3 ********** 

* LOAD THE ♦ 

* ALTERNATE ♦ 

* AREA'S ♦ 

* BEGINNING AND * 
♦ENDING ADDRESS * 
***************** 



* B4 * 

* * 
**** 
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rt EM. QTA.M Trace: Tape Output Phase (PDAIDQTT) (Part 1 of 2) 



* FROM * 

* SUPERVISOR ♦ 

* SIO EOOTIKE * 



* BUILD 'S' ♦ 

* TYPE * 

* RECORDS * 

* * 



* FROM * 

* INTERROPT * 

* HANDLER * 



* BUILD •!• * 

* TYPE * 

* RECORDS * 

* * 



* SAYE THE * 

* EXIT * 

* ADDRESS * 

* ♦ 



,* OUTPDT *. YES 
DEVICE .* 

♦INTERRUPTED* 



* * 

* SAVE THE * 
X* DEVICE * 

* STATUS * 

* * 



DUMPTST X 

♦♦♦♦♦El******** 

* GET ADDRESS 

* OF LOGICAL 

* TRANSIENT 

* AREA 
* 



.* DUHP 


IN 


* 


YES 


. PROGRESS 




*. ... 


*. 




* 




*. 


. * 






*. 


* 




X 




NO 




***** 


**** 






=»EN * 


* 






* G2* 


G1 *.X. 






* * 


* 






* 


**♦* X 






S ANT PET 



***♦♦ 

*BN * 
* El* 



***#:Xt(] 1 ****:i.**:(c** 

* GET DEVICE * 

* INTERRUPT * 

* ADDRESS * 



***************** 



ALTER 

PREVIOUS 

INSTRUCTION 

* TO NOP * 

**********:{( 



**B3******* 

* CHANGE * 
♦EXIT ADDRESS 

* AT F1 FROM 
♦ 'ENTH' TO 

* 'SVCENT* ♦ 

*********:^3)c 



INITZ 

*****Q3***:|(:tc***** 

* MOVE 'IGNORE * 

* PARTITIONS' * 

* PARAMETERS ♦ 

* TO TEST * 

* INSTRUCTIONS * 
**<[ *;{(**** ******:tt* 



*****0 3********** 

* RET ADDR OF * 

* I/O AREA AND ♦ 

* UPDATE CCW * 

* DATA ADDRESS ♦ 

* * 

**3;t*:^;4c«***:<c ****:{( ijt 



*****E3 ********** 

* * 

* GET ADDR OF * 

* ERROR MESSAGE * 

* *E2 * 

* * 

*******«********4: 



**P2******* F3 *. 

* * ,* *^ 
MODIFY * NO .* 9-THACK *. 

CCW TO SET *X *. TAPE .* 

MODE * *. .* 

* * ♦, , * 
*********** *, .* 

* YES 

'. X.* 

X 
DONTSET . *. 
**Q2******* G3 *. 

* * .* 'OPT' *. 
SUBSTITUTE * YES .BYTE IN STD.*. 

•CKIEVCEI' *X. *. PREFACE TABLE.* 

FOR 'SAVUM' * *. INDICATES. * 

* * J5 * *.»IGN« .* 
*********** *^ _, # 

* NO 

'. X * 

X 
IGNDEV .*, 

H3 *. 
. * *. 

.* TRACE *. NO 
*. ALL .*... 



*E2 
THIS EEEOE MESSAGE 
INDICATES DEVICE 
NOT OPERABLE. 



****R4 ********* 

* ENTRY FROM * 

* SVC HOOK * 

* * 

****:|E**:(<*4i***** 



. * FIRST 
TIME 
*. THROUGH 



C4 *. 

* ♦. 

SVC 31 

*. .** 

*. . * 
♦ YES 



* 

SVC 



♦SAVE IDENTIFIER* 
*0F INTERRUPTED ♦ 
♦ PARTTTTON (PTK) * 

«*****:«****:)(****:«( 



E-S *. 

,*IS THIS*. 

* PARTITION *. 

TO BE 

*. IGNORED .* 



♦***F(+ ********* 

* RETURN TO * 

* SUPERVISOR * 

* * 

****:4<*******i|<*:« 



* STORE * 

* SVC-TYPE * 

* PREFIX (vy * 

*t*** ************ 



*****Qi:^ ********** 

* * 

* SAVE SVC OLD ♦ 

* PSW, RFGS n * 

* AND 1, AND * 

* PARTITION ID * 
***************** 



***** 
*EN * 
* T!1* 



***** 

*EN * 
* B2* 



**j3******* 

* CHANGE * 
ENTR TO 

BRANCH TO 
OVFLIND 

* * 

****:«(**«**« 



**J4******* 

* CHANGE * 
ENTR TO 
LOAD A 

HALFWORD 

* * 
*********** 



***** 
*EN * 
* B1* 



********* ***:(c**** 



i 



**** 

* * 

* G1 * 

* ♦ 
***♦ 
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Chart EN. QTAM Trace: Tape Output Phase CPDAIDQTT) (Part 2 of 2) 



***** 
*m ♦ 
* ji* 

♦ * 



.* FIRST *. 
YES .♦ DEUCE ♦. 
. ..*. IHTEBRDPTED .* 

♦ . IGN .* 



CI *. 
.♦SECOND *. 
IBS .♦ DETICE ♦ 
X..*. IHTBBBOPTED 
♦. IGN .* 



.*. 

D1 ♦. 

.* THIRD *. 

YES .* DEVICE * 

XX,.*. INTEBROPTBD 

♦. IGN .♦ 



**** 



.X. 



***** 
*EM * 
♦ J1* 



B2 *. 

.♦ FIRST *. 
* DIflCE ♦ 

INIERROPTED 
*, KEEP .♦ 



C2 *. 
*SICOND *. 
DEVICE ♦. 
INTEBROPTBD .* 
KEEP .* 



♦ , 



****** */*^* BEFEEBNCIS 
**** 
OVFLIND 

El 



.* 



SAVE 
AREA 
FOLL 



.* THIRD ♦. 
YES .* DIVICE * 
X. .*. INTERHOPTED 
*. KEEP ,* 



♦ HI * 

* * 
**** 



BH *. 

.*OOTPOT *. 

♦ DEVICE *, 

INTERRDPTED 



* ♦ 

* GET POB * 

* BOSY BYTE * 

* ADDRESS * 

* ♦ 





♦ ♦*♦ 

* ♦ 

* B5 ♦ 

* * 

**** 


ERRCOHR .*. 

B5 *. 

NO ,** DEVICE 
...*. OPERABLE 



:tL****riS******** 

* GET CHANNEL 

* >HT) ONIT 

* ADDRESS FOR 

* SYSLOG 



**** 



*********** 



* a3 * 

♦ *♦* 



**f'\******* 
♦SET DP •*• * 

♦ TO INDICATE 
LOST ENTRY 

* DOE TO 

♦ OVERFLON * 
*********** 



DOIT 

*****f^H********** 

♦ SAVE OOTPOT * 
♦DEVICE'S CHAN- ♦ 

♦ NEL AND ONIT ♦ 

♦ ADDR. POT CCN ♦ 

♦ ADD IN CAW ♦ 
***************** 



*****f^^ ********** 



***************** 



♦**♦* 
♦EM ♦ 
♦ PI* 



SAVIT X 

*****Q I ********** 

* HOVE ANOTHER * 

♦ ENTRY ♦ 

♦ INTO THE ♦ 

* SAVE AREA * 

* * 
***************** 

*♦** 

♦ HI *.X 



**** 
HANTPRT .♦. 

P.1 *. 
.♦ TEN ♦, 
.♦ ENTRIES 
..X*. IN THE I/O 
♦. AREA 



**** 

* * 

* G3 ♦ 



CLEAR X 

*****Q2********** 

♦ SAVE I/O ♦ 

♦ EVENTS TO ♦ 

♦ BE POT OUT ♦ 

♦ ON NEXT ♦ 

♦ INTERRUPT ♦ 
***************** 



***************** 



***Qli ************ 

♦ NRITE I/O ♦ 
EVENTS ON 
* TAPE * 

***************** 



* HI * 
**** 



.♦ DEVICE ♦. 
.END ON OOTPOT. 
*, DEVICE .* 



♦*♦* 

♦ B5+ 

* ♦ 

**** 



H5 ♦. 
♦ TAPE ♦. 
CHANNEL *. NO 



* * 

* J3 ♦. 

* * 
**** 



*****j2********** 

♦ RESTORE CSW, ♦ 

♦ CAW, AND ♦ 

♦ RETORN ♦ 

♦ ADDRESS ♦ 

♦ * 
***************** 



****^-^ ********* 

♦ RETORN TO ♦ 

* ENTRY POINT ♦ 
He * 

*************** 



* G3 ♦ 

* * 

**** 



.♦ ERROR ♦. YES 
♦. CONDITION .♦,... 
♦.POSSIBLE ,♦ 



♦ B5 ♦ 

* * 
**** 



'. AND tJNi-<- 

♦. STORED 

*. .* 
♦ . .♦ 
♦ YES 


♦ 


X 

*****j^********** 

* CLEAR ♦ 

* I/O AREA ♦ 

* * '. 
***************** , 


Ix 





K« ♦. 

* 

COHPL 



**** 

* * 

* Q3 ♦ 



* R5 ♦ 

* * 
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Chart F?l, Transient Dump: Tape Mode (PDAIDTDT) (Part 1 of 2) 



* * 

* PDAIDTDT * 

* * 



4< 4i 4> * /^ 3 41 * 4i Id * 4> 4> « * 

* COBEDDMP ♦ 

* ♦ 



ENTIY 
DONP&BEA 



|c]|i4<*>lt**** 



:(c itt 4c :(. :t(:|c 4c >«< 4c 41 4< 4t 4> !(< 4> :» * 



ENTSYE 

♦SET YOOE ACTIVI* 

* FLAG OH, ATTN ♦ 

* BIT IN PIB * 

* AND SAVE GEN ♦ 

* REGISTEIS * 

4c4E**4<4>***4c**3|e*itc*4i 



4t4<*Dl4<4'4<*4<* ****** 
POT lA 

4c_4'-*_4c_4t_4c_4t-.4«-* 
WRITE JOB NARE 
* AND DATE * 

4c4<***4't*'|c4<*4<4<«*«* 



4c4'*E1*«**44i4<***)t<* 

L0ADB11 lA 

4._*-*-*-*-*-*-*-* 

FOKHAT AND 

♦ WRITE R0-R7 * 

EECORE 

4<**4<*al<#il'***:i»4i*it<*>K 



m**f\ 4«********** 
L0ADR11 FA 

4c-4<-*-*-*-*-*-*-* 
FORMAT AND 

* WRITE le-EF ♦ 
RECORD 



4c4c4(4>*4<*4<)|< *4c«*st>**4 



4c4>4<4<H1 **♦*♦***♦ 

* ♦ 

* POT * 

* * 

♦ *** 



* ♦ 

* SET TO DOMP * 
.X*FIRST 1Ut» BYTES* 

♦OF REAL STORAGE* 

* * 



4i4<*C2********^*^* 

COHEDDMP FA 

4«- ♦-*-*-♦-*-*-♦-* 
FOBBAT AND 
* IPITE MS ♦ 

fECORDS 

4c4c4<4<*****:|c*****3t' 



♦♦♦D2****** ♦*♦*** 
POT FA 

4<-4t-*-*-*-*- ♦-*-* 
HPITE LTA 
* LABEL ♦ 

4e 4> *i|c** # ]t>4i*<i 4t«**4i * 



COBIE0»!P FA 

4c_4c-*-*-*-*-4t-*-* 

FORMAT AND 
* WRITE LTA * 

RECORDS 
4i4i4>*********4i*4E** 



4c4t#f2^** ♦♦♦*♦♦♦♦♦ 
POT FA 

4(_4t-*-*-*-*-*-*-* 
WRITE PTA 
♦ LABEL ♦ 

41 4t4c4t4i4'« ***#4t4c**4t4> 



4<4>«G2****^*****^* 


COREtOMP 
4c_4.-*-*-*- 


♦-*- 


li. 


FORHAT AND 
♦ fllTE PTA * 
RECORDS 


**** 








♦ FB ♦ 

♦ G1^*.X^ 








**** 









J1 *. 




.* DE? *. 




.♦ BDSY OR * 


NO 


♦.INTERVENTION . 


♦. .. . 


♦.REQDIRED .♦ 




'♦. .♦* 


X 


♦ YES 


**4>4< 


♦♦♦* 


♦ * 


♦FB * 


* B5 


♦ G1 ♦.!. 


♦ 1 


♦ * 


**** 


♦*♦* 




ENABLE X 




4>4<4<4>*K !♦♦♦♦♦♦♦♦♦♦ 



RETURN X 

4<4>***H2*^^^^^^^^^ 

♦ RESET SOP?R ♦ 
♦ACTIVl BIT, AND+ 
♦ATTN ACTIVE BIT + 

♦ AND RESTORE ♦ 

♦ REGISTERS ♦ 
4<*4<4<4>#«**i«E*****«4' 



♦♦♦♦J2^^**+^^^* 

♦ RETDRN TO ♦ 

♦ SOPIRVISOR ♦ 

♦ * 



4i4':t<3|'«*4t#4>** 

**** 

♦ FB ♦ 

♦ H2 ♦ 

♦ * 

♦ *♦* 
C0REDHP1 

4e*4c*i|<c3^*^***^^^^ 

♦ * 

♦ MAKE ADDR ♦ 

♦ PRINTABLE AND ♦ 

♦ HOVE TO ODTPOr ♦ 

♦ AREA ♦ 



♦ SET TO ONPK ♦ 

♦ DATA INTO ♦ 

♦ ODTPOT AREA ♦ 

♦ * 

*♦*♦ 



♦ *** 
ONPACK X 

♦ * 

♦ MAKE 1 WORD ♦ 

♦ PRINTABLE AND ♦ 
♦MOVE TO OOTPOT ♦ 

♦ AREA ♦ 



F3 ♦. 
. ♦ ♦- 

.♦ * 

♦. END OF AREA 



* * 

♦ L0ADB11 ♦ 



♦ * 

♦ B5 ♦ 

♦ ♦ 

X 

♦ ♦ 

♦ MASK OFF ALL ♦ 

♦ BOT EXT ♦ 

♦ INTt^RRDPTS ♦ 

♦ * 
4c4i4<*!t(4i«**4i**4i*4>4<* 

*♦*♦ 



SORE SCAN 



4!4<#*4i4<««4i4c«***#** 



4c 4c4it) 5 ♦♦♦♦♦♦ ♦♦♦♦♦♦ 

♦ START I/O ♦ 



iit**if*itt**m******** 





X 








« ♦ 








T?5 ♦. 








,♦ * 








♦ 


* 


YES 


* 


SOCCESSFOL 








♦. STBRT 


* 














♦ . .♦ 




X 




♦ NO 




♦*♦*♦ 
♦FB ♦ 

♦ 




X 




WAIT 





f NO 


**** 


**** 




* * 


♦FB ♦ 




♦ K1* 


♦ D1 ♦.X 




♦ * 






***♦ 


♦ ♦** 







4c4i4<*G3 ♦♦♦♦♦♦♦♦♦♦ 



4(4'**4<#4<*4'«4'***)|c*« 



4(4t4c4'4<*«*i|>** 



ERROR 

4c4E4'**C^5*i»i4t*«*4i:|t4E4c 

♦ SET TO WRITE ♦ 

♦ ERROR MSG ♦ 

♦ 't^Cli^K NO I/O ♦ 

♦ TO OD' ♦ 

♦ * 
*4i4t*«3|i*]|i**>((****4t* 



♦ E3 ♦ 



♦ ADD SPACES * 

♦ OOTPOT LINE ♦ 

♦ FOR WORD ♦ 

♦ SEPARATION ♦ 



4c4>4<4c#*4<**4'*4i***4<'|t 
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Chart FB, Transient Dump: Tape Mcde (PDAIDTDT) (Part 2 of 2) 



***** 

*FA * 
* E5* 
♦ * 



**4<************** 



. ♦. 

CI *. 



X 

***** 
*Fft * 

* * 

* 

IBBOR 



.♦. 

G1 ♦. 




CI 


.EAH X 




.* * 










.* RESPONSE 


*. 


NO 


* CLIAR I/O * 




•X' 




*. .. . 


♦ AREA * 




*. 


* 








*. .* 










*. , * 




X 


*]|c:(c:t( 4c 4< *********** 




* YES 




***** 
*FA * 






X 




* * 






***** 




* 






♦FA * 




ENABLE 






♦ H2* 






.*. 




* * 






H2 *. 




* 






.*■ *. 


3|c#:tc*e3******** 


HETOEN 






.* END OF *. TES 
♦. AREA .* 


* RETOEN TO 
..X* CALLER 



*************** 



***** 
*FA * 
* C3* 
♦ * 
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Chart FC. Transient Dump: Printer Mode (PDAIDTDP) (Part 1 of 2) 



* * 

* PDAIDTDP * 

* * 



♦***A3 ********* 

* ♦ 

* COHEBOHP * 



**dliilf***********,^* 



ENTEYB X 

♦SET YODB ACTIVE* 

* FLRG OH, ATTN * 

* BIT IN PIB * 

* AND SAVE GEH * 

* EEGISTEBS ♦ 

4# 4c * :«< i|( «(:«< :|i # # * * * :|i 4; # 



_♦_*-*_♦_* 



HBITE JOB 
NAME ASD * 
DATE 



^,*iti-Q^'^*ili**t ****** 
L0ADB11 EC 

*»*_*-♦_♦-♦-♦-*-* 
POBMAT AND 
* HBITE B0-B7 * 

BECOBD 
***************if 



***f '[*********** 
L0ADE11 EC 

FOEMAT AND 
* WRITE B8-EF * 

BECOBD 
***************it 



***Q'[********** 

PUT FC 

♦ _*-♦-*-♦-*-*-.*-! 

SPACE 1 
* BECOBD * 

*^,***i)i*ilt*****^,ilf*HL 



v***!}-; ********* 

* * 

* POT * 

* * 
*************** 

**** 

* * 

* J1 *,X 

* * 
*♦♦* X 

T .*. 

J1 *. 

. * DEV * . 

.* BOSY OB * 

*.INTEEVENTION 

*.1EQ0IRED .* 





COEEDDMP X 


*****g 2 ********** 


**B3*:(t***** 


♦ * 


* * 


* SET TO DDWP * 


* BESET AEEA * 


X*FIBST 11|t^ BYTES* 


* END SWITCH * 


♦OF MAIN STOEAGE* 


* * 


* * 


* ♦ 


***************** 


*********** 




*♦** 
*FD * 




* G2 *.X. 




♦ * 




***♦ 


X 


C0EEDMP1 X 


***Q2************ 


*****C^*********^c 


COEEDDMP FC 


* * 


*_*_*_*«*_♦_*_♦_* 


* -MAKE ADDS * 


FOEMAT AND 


* PBINTABLE AND * 


* WEITE MS ♦ 


♦HOVE TO ODTPDT * 


BECOEDS 


♦ AEEA * 




***************** 



***************** 



***g2****** *♦♦*** 
COEECOBP EC 

*.*_*-*_*_♦_*_*_* 

FOEMAT AND 
* WEITE LTA * 
BECOHDS 
***************** 



***f 2*********** 
POT EC 

*_*_*_*_*_*-*_*-* 

WBITE PTA 
* LABEL ♦ 

***************** 



*_*_*_*_*_*_*_: 

FOBMAT AND 
* WBITE PTA ♦ 

BECOEDS 

***************** 



**** 
*FD * 
* F1 ♦.X 



**** 
BETOEN X 

*****g2 **♦**♦*♦** 

* BESET SOPVB * 
*ACTIVE BIT, AND* 
♦ATTN ACTIVE BIT* 

* AND BESTOEE * 

* EEGISTEBS * 
***************** 



****j2********* 

♦ EETUBN TO ♦ 

♦ SOPEBVISOE * 

♦ * 
*************** 



* SET TO ONPK 

* DATA INTO 

* OOTPDT AEEA 
* 
**************** 

**** 



*♦** 
UNPACK X 

*****i;3 ********** 

* * 

* MAKE 1 iOED * 

* PBINTABLE AND * 
♦MOVE TO OUTPUT * 

* AEEA * 
***************** 



♦♦♦♦ClJ ********* 

* * 

* L0ADE11 * 

* * 
*************** 



♦ * 

♦ B5 * 

♦ * 

♦*♦* 



* MASK OFF ALL * 

* BUT EXT * 

* TNTEEEUPTS * 

* * 
***************** 

♦*** 



STOBECAW 

*****cs******* 



***************** 



***05****** ****** 

* * 

START I/O 
* * 

***************** 



.* *. YES 

*. SUCCESSFUL .*.. 

*. STAET .* 



F3 *. 

.* *. 

♦ * 

END OF ABE A 



*****G3******: 



***************** 



**** 

* * 

* K1 * 

* * 

**** 



♦ *** 
* * 

..X* E3 * 



* ADD SPACES * 

♦ OUTPUT LINE * 

♦ FOB WOBD * 

* SEPABATION * 
***************** 



**** 

* * 

* J1 * 



*- .* 


X 


* NO 


***** 




*PD * 




* B1* 




* * 




* 




WAIT 


X 




*****p 5 ********** 


* SET TO WBITE 




* ^RROB MSG 




* *K2t^K NO 




* I/O TO 0D« 





*************** 

X 

* * 

* C5 * 

* * 

**** 



**** 

*FD * 

* F1 *.X 



**** 

ENABLE X 

*****(^1 ********** 



**** 
* 
* K1 



***************** 
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Chart FD. Transient Dump: Printer Mode (PDAIDTDP) (Part 2 of 2) 



*PC * 
* G5* 

* * 



4t**B1 ****** ****** 



TEST FOR 
I/O COMPLETE 



^it*************** 



4>4c4i*F2********** 



.* RESPONSE *. NC 



X 

***** 
♦FC ♦ 

♦ H2* 

* * 

* 

RETORK 



***** 
*PC * 

♦ K1* 

♦ ♦ 



it,:^***-^4********** 



****G3********* 

* BBTORN TO * 

* CALLER * 

* * 

iHHf^:************ 



***** 

*fC * 
* C3* 

* * 
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SDAID (SYSTEM DEBUGGING AID) 



INTRODUCTION 



SDAID provides software debugging 
facilities : 



For tracing the occurrence of 
user-selected program or ironitor call 
events 



The tracing and dumping routines operate 
with events occurring both in the DOS/VS 
supervisor resident cr transient area and 
in the problem program area, 

SDAID uses the following DOS/VS inner 
functions to temporarily fix all pages in 
which fields must be initialized for 
subsequent tracing and duirping and to free 
them after initialization: 






• For dumping parts or the whole real 
storage at the time one or more of the 
selected events occurs. 

SDAID tracing and dumping facilities are 
provided by the utilization cf the two 
following System/370 features: 

• Program Event Recording (PER) 

• Monitor Call Event. 

The occurrence of a designated program 
event or monitor call event is signaled to 
the program by a program interruption if 
the CPU is enabled for this condition. 
Control registers 9, 10, 11 and PSW bit 1 
(PER bit) are dedicated to control program 
events interruptions. 

The SDAID program can be executed in any 
real or virtual partition and is initiated 
by entering // EXEC SDAID via SYSLOG or 
SYSRDR, An operator/system dialog follows, 
beginning with the message 

4C55D GIVE SPACE FOR SDAID = 

The messages issued by SDAID are listed in 
Appendix A of this manual. 

More information on the usage of the 
SDAID program can be found in Section 2-B, 
Part 2 of DOS/VS Serviceability Aids and 
Debugging Procedures , GC33-5380- 

To get control as soon as a program 
interruption occurs, the tracing and 
dumping routines must reside periranently in 
real storage. 

SDAID uses the two following DOS/VS 
inner functions to get the number of page 
frames from the page pool necessary to 
accommodate the tracing and dumping 
routines and to return them to the page 
pool when SDAID is no longer desired: 

• GETREAL Get real storage 

• FREEREAL Free real storage. 



TFIX 



Temporary fix a page frame 



• TFREE Free a previously temporarily 
fixed page frame. 

This chapter provides information to 
familiarize the reader with the external 
characteristics of the two Systeir/370 
features and the four DOS/VS inner 
functions. It will also facilitate 
understanding of SDAID internal program. 
Icgic. 



PROGRAM EVENT RECORDING (PER) 



The Program Event Recording feature permits 
the program to be alerted of the following 
events : 

• Successful execution of a branch 
instruction 

• Successful fetching of an instruction 
between predefined limits of a logical 
storage area 

• Alteration of the contents of storage 
between predefined limits of a logical 
storage area 

• Alteration of the contents cf one or 
more designated general registers. 

The information concerning a program event 
is provided to the program by means of a 
prcgram interruption, whcse cause is 
identified in the interruption code. 



CONTROL REGISTER ALLOCATION 



The information for controlling program 
event recording resides in ccntrcl 
registers 9, 10, and 11 (see Figure 20). 
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CR 9 j PER control bits | | PER general register mask 




8 16 31 

PER control bits Bit Successful branch 

Bit 1 Successful instruction fetch 
Bit 2 Storage alteration 
Bit 3 General register alteration 
Bit 4-7 Unassigned 

Bits 0-3 corresponding events ignored 

1 corresponding event will cause a program interruption 

PER general register mask The 16 bits (16-31) correspond one for one with the 16 
general registers (0-15) in ascending order. 

Bits 16-31 corresponding register alteration is ignored 

1 corresponding register alteration will cause a program interruption 


CR 10 1 j PER logical start address 








CR 1 1 1 1 PER logical end address 




Bits 8-31 of control registers 10 and 11 designate the start and end address of the 
logical storage area for instruction fetch and storage alteration program event recording. 



Figure 20. PER Control Information in Control Registers 9, 10, and 11 



OPERATION 



Operation of program event recording is 
controlled by PSW bit 1 (PER bit). 



PSW Bit 1 



Program events are ignored 



= 1 : Program events are 

permitted subject to 
the setting of PER 
control bits in ccntrcl 
register 9. 



When a designai-ed program 
with the CPU enabled for 
program interruption will 
events causing the interr 
identified by the PER cod 
interruption code extensi 
more bits in the PER code 
the interruption code in 
interruption code extensi 
That is to say, bit 8 of 
code indicates whether or 
required (see Figure 21). 



event occurs 
this condition, a 

occur. The 
uption are 
e in the program 
on. When one or 

are on, bit 8 of 
the program 
on is set to one. 
the interruption 

not PER action is 




Program Interruption code extension in low core 



PER Code 


BitO 


Successful branch 




Bit 1 


Successful instruction fetch 




Bit 2 


General register alteration 




Bit 3 


Storage alteration 




Bit 4 7 


Unassigned 



Bit 0-3 = corresponding event did not occur 

1 zr corresponding event occurred 



\ 



Figure 21. Layout of Low Real Storage Used 
for Checking Whether or Not a 
Specific Event Occurred 



J^ONITOR CALL EVENT 



The location of the instruction 
associated with the event is identified by 
the PER address in the program interruption 
extension in low real storage. 



The monitor call event is defined by the 
execution cf a monitcr call (MC) 
instruction, the forirat cf which is: 
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MC Dl (Bl) , 12 (SI) 



I AF I 12 

L ^ X 

7 8 



Dl 



T ^-T 

I Bl I 

.„1 — J- 

15 16 19 20 31 



Bits 12-15 of the monitor call instruction 
identify one of the sixteen possible 
monitor call classes and are set up from 
the immediate operand value (Is)- 

The first operand field (El) + Dl is 
used to identify the monitor call code for 
the specified class. 



CONTROL REGISTER ALLOCATION 



The information for controlling rronitor 
call events is contained in control 
register 8 . 



CR 



-^ ^ 

[Monitor Call Class Maskl 

-X . J 



16 



31 



The monitor code ( (Bl) + Dl field) 
associated with the instruction is 
identified in the ironitor code field in the 
prcgrair interruption cede extension. 

The program interruption code extension 
is shown in Figure 22. 



140 
144 
148 
152 
156 






' y ' ^i ■ ■ ! ■^ ■■^ ,M^^M , ^.,.M .^ .^,^.i^uu^|>MU. , jujj^ .. .. . .. .| .g| .| 



Interruption Code, 



15 



- r.^-^' 






Monitor class 



.■■•;.fe?.Sf.;iV;$/.l-^ft^Li>.=.^.^.....»g.. .■■•■?■ ■• '^^>-^t-}-^s.-:i'A....2..-.-':..-.....>^. x ...V: 



fj'^Vjj|?5:;i- ,i ^"^ ,■ ff i .l/\, --'X 'r.\'^J"i',l 



#^ 



Monitor code 



Figure 22. Program Interruption Code 
Extension 



GETREAL - FREEREAL 



Monitor call 
class mask: 



Bits 16-31 = 



= 1 



The 16 bits (16-31) 
correspond cne for one 
with the 16 possible 
monitor call classes 
(0-15) in ascending 
order . 

Execution of a monitor 
call instruction for 
the specified class 
will be treated as a 
NOP instruction. 

Execution of a monitor 
call instruction for 
the specified class 
will cause a program 
interrupticn. 



Access to DOS/VS GETREAL and FREEREAL 
functions is provided hy the two following 
SVCs: 

SVC 55 Allocates page frames from the 

main page peel at the end of real 

storage for the PDAID alternate 

area or for the SDAID area. 

SVC 54 Gives back tc the page pool all 
the page frames allocated by a 
preceding SVC 55. 

Figure 23 shows the parameters passed and 
returned by SVC 55 and SVC 54. 



OPERATION 



TFIX - TFREE 



When a designated monitor call instruction 
is executed^ with the monitor call class 
mask bit enabled for the specified class, a 
program interruption will occur. 

The monitor call class (12 field) 
causing the interruption is identified by 
the monitor class field in the program 
interruption code extension. 

Bit 9 of the interruption cede, in the 
program interruption code extension, is set 
to one. 



Access to DOS/VS TFIX and TFREE functions 
is provided by an offset table in low real 
storage. 

TFIX Attaches a page frame to a 

specified page and temporarily 
fixes that page frame so that it 
can no longer be swapped out. 

TFREE Frees a temporarily fixed page 
frame. 

Figure 24 shows the parameters passed by 
TFIX and TFREE. 



SDAID 8 9 



RO I Rl 



SVC 



54 



55 



Macro 



Parameter passed 

— T 






T 

RO I Rl 



Number of 
page frames 
asked. 



Paraireter returned 



Nuirfcer cf 
page frames 
allccated. 



Begirning 
address of 
allccated 

area. 

Zero if 

duplicate 

request. 



Figure 23. Parameters Passed and Returned by SVCs 55 and 54. 



J. ^ — ^ ^ -J. 


-^ ^ 


1 Function | SVC | Macro | Paraireter passed 


1 Paraireter returned) 


L J. + ± 


«4 J 



TFIX 



TFREE 



R2 - Any logical 
address within the 
page tc be fixed 

R3 - Nc. of page j 
frame to be freed | 



Figure 24. Parameters Passed by TFIX and TFREE 



GENERAL DESCRIPnON 



The SDAID tracing/dumping facilities are 
performed by the SDAID event handling 
routines (phase SDEHR) . The SDEHR phase 
takes control as soon as a prograir check 
occurs and operates in supervisor state 
with a key of zero. For this reason it 
must permanently reside in real storage as 
long as the tracing/duirping facilities are 
desired. 

To meet these requirements a nuirber of 
page frames, which can be specified by the 
user and cannot be less than three (6K 
bytes) , is taken from the page pocl at the 
end of real storage. These pages are then 



assigned tc an area called SDAREA in which 
the SDEHR phase resides alcng with a cere 
wrap recording buffer (SDEUF). 

The set cf SOAID routines can be divided 
into three parts distinguished by the time 
of their execution (see Figure 25). 

• Initialization 

• Operation 

• Termination. 

This section gives a general description of 
these three parts. In addition, it 
describes the inter-phase coirmunication and 
the layout cf the SD area in the supervisor 
area . 
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Part of SDAiD 


Phase 


Module 


CSECT 


State 


Key 


Execution 
Time 


Execution 
Area 


Function 


INITIALIZATION 


SDAID 


UBSDAD1 


SDAID 1 

PRTMOD 

CSLMOD 


P 


Partition 


Initialization 


Partition 


Get real storage for SDAREA 
LIOCSforSYSLST 
LIOCS for SYSLOG 


SDPAR 


IJBSDPAR 


SDPAR 


P 


Partition 


Initialization 


Partition 


User option acceptance routine 


SDAID2 


IJBSDAD1 
IJBSDAD2 


SDAID2 
SDEHR 


P 


Partition 


Initialization 


Partition 


Print out selected options 

This phase will be moved to SDAREA 


$$BSDAID 






P/SV 





Initialization 


LTA 


Move SDEHR to SDAREA. Activate 
PSWs and Control Registers to perform 
selected options 


OPERATION 


SDEHR 


IJBSDAD2 


SDEHR 


SV 





Operation 


SDAREA 


Analyze program check and 
perform tracing/dumping 


TERMINATION 


ENDSD 


IJBENDSD 


ENDSD 


p 


Partition 


Termination 


Partition 


Call $$BATTN3 




$$BATTN3 


1 1 




P/SV 





Termination 


LTA 


Printout SDBUF Return SDAREA 
to page pool Deactivate PSWs 
and control registers 



Figure 25. Summary of SD?^ID Program 



COMMUNICATION BETWEEN PHASES 



Communication between phases takes place by 
means of a communication region . referred to 
as parameter list (MONPARM) . This 
parameter list is divided into two 
sections. The first section (see Figure 
26) contains parameters to control the 



desired tracing and dumping facilities of 
the operation phase SDEHR. It is 
transferred to SDAREA at the end of SDEHR, 



The second section (see Figure 27) 
contains parameters tc ccntrcl the 
initialization process of the operation 
phase SDEHR. 
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MONWRAP 




Start address of core wrap buffer 


(SDBUF) 


MONEWRAP 




End address of core wrap buffer 


(SDBUF) 


MONWPNT 




Next available entry in core wrap buffer 


(SDBUF) 


MONPRTR 




Printer address Ocuu 


Reserved 


MONTE 


(1) 




Reserved 


■ 

MONCHK (1) 


Reserved 


MONENQ 


(1) 




Reserved 


MONHDL (1) 


Reserved 


MONHALT 


(2) 




Reserved 


NONDD (3) 


Reserved 


MONOUTCL 




Output class 


Reserved 


MONDSTRT 




Reserved 




MONDEND 




Reserved 





(1) MONTE 
MONCHK 
MONENQ 
MONHDL 

(2) MONHALT 

(3) NONDD 



Translation exception event switch (Interruption code X'1 1') 
Prograri! check event switch (interruption code X'01' to K"\2' except X'1 V) 
Page fault enqueue event switch (Monitor Call class 5, code X'000010') 
Page fault handling event switch (Monitor Call class 5, code X'00001 1') 



Switch X'OO' 
X'FF' 

Stop on event switch 

Switch X'OO' 
X'FF' 



Event is ignored 

Event is enabled - recording takes place 



Resume processing after event recording 
Enter wait state after event recording 



Non-destroying dump switch. 

This switch is only tested if MONHALT switch ON. It is set by the 
operator when system enters wait state and is reset to X'OO' by the 
program after real storage dump is ended. 



Switch X'OO' 
X'FF' 



No real storage dump 
Dump whole real storage 



Figure 26. Section 1 of Parameter List (MCNPABM) 
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MONCR08 



Control Register 8 



MONCR09 



Control Register 9 



MONCR10 



Control Register 10 



M0NCR11 



Control Register 1 1 



MONREAL 



Start address of SDAREA 



MONRELAD 



Start address of SDEHR CSECT in phase SDAID2 



MONDIFF 



Length of SDEHR CSECT 



Reserved 



MONCPU 



CPU identification 



IVIONDUB 



Address in SAVSDAR of return PSW 



MONDUBX address in SAVSDAR for R15 Save 



Reserved 



MONMPER X'40' 



Reserved 



MONLDUB 



Addresses in SDEHR CSECT 
where to move the address of 
the return PSW from 
MONDUB field 
(See SDAID area in supervisor) 



MONLDUBX 



Addresses in SDEHR CSECT 
where to move the address of 
the save area for R1 5 from 
MONDUBX field. 
(See SDAID area in supervisor) 



NPSDOSAD 



Address in SDEHR where to move address of DOSPGMN (SAVSDAR field 5) 



MONFIX 



Start address of 1st Section of Parameter list 



These are addresses in 
phase SDAID2. They 
are used by $$BSDAID 
to temporarily fix the 
pages within which they lie. 



End address of 1st Section of Parameter list 



Start address of SDEHR CSECT 



End address of SDEHR CSECT 



Reserved 



Figure 27. Section 2 of Parameter List (MONPARM) 
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SYSCOM 



Offset 




SAVSDAR 



_ Save area (DOSPGMN - 8 bytes) for normal 
DOS/VS new progrann check PSW 

offset (ADRTFREE - 2 bytes) to TFREE supervisor function 



offset (ADRTFIX - 2 bytes) to TFIX supervisor function 
^^ Save area for register 15 (Note 1) 
-SDEHR return PSW (8 bytes) (Notes 1 and 2) 



Note 1 ; Fields 1 and 2 may be inverted (if SAVSDAR is not aligned on a doubleword boundary) to allow PSW load to return from SDEH R routines. 

Note 2: If there is an interruption due to a monitor call for a class different from 0, 1, and 2, or due to a PER event without another program 
check interruption, this field contains the old program check PSW at interruption time. Otherwise the contents of field 5 are moved 
into this field. 



Figure 2^ 



Layout and Contents of SAVSDAR 



\ 



SDAID AREA IN SUPERVISOR 



An area (SAVSDAR) is provided in the 
supervisor area for SDAID (see Figure 28). 
It is mainly used for saving, but contains 
also a table that gives the offsets to TFIX 
and TFREE supervisor functions. 



INITIALIZATION ROUTINES 



A real partition of at least 12K or any 
virtual partition is needed to initalize 
SDAREA. 

The following functions are performed by 
the three initialization phases and the 
initialization transient (see also 
Figure 29) : 

SDAID Get page frames from the page 

pool and allocate them to SDAREA. 



SCPAR Initialize an cperator-to-system 
communicaticn tc set up the 
operator-selected tracing and 
dumping options in the parameter 
list (MONPARM). 



SDAID2 Print on SYSLST the selected or 
default tracing/dumping options 
and give control tc the 
initializaticn transient. Upon 
return from the transient, pest 
the successful initialization and 
release the partition. 

$$ESCAID Initialize the event handling 

routines (SDEHR) and mcve them to 
the SDAREA. Initialize PSWs and 
control registers to perform 
selected tracing/dumping options. 



The storage layout during initialization is 
shewn in Figure 30, 
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JOB CONTROL 



//EXECSDAID 



Load first SDAID phase into 
partition 



PHASE SDAID Chart G A 



Test TOD clock 

Getsizeof SDAREA 

Issue GET REAL to get page 
frames from the page pool 



f Fetch SDPAR j 



PHASE SDPAR Chart GB 



Initialize operator-to-system 
communication and set up 
MONPARM with selected 
options 



( Fetch SDAID2 j 



PHASE SDAID2 Chart GE 




1 






Print selected/default options 

Print procedure to change 
options 

Move first section of MONPARM 
at the end of SDEHR CSECT 














rFetch$$BSDAID j 












I 


$$BSDAID Chart GF 




1 






TFIX all needed pages 

Move SDEHR CSECT and 
first section of MONPARM 
to SDAREA 

Initialize all PSWs with PER 
Bit 

TFREE all TFIXed pages 

Initialize CR 8,9, 10, and 11 














/" Return ^ 
i from LTA ) 












t 




PHASE SDAID 2 Chart GE 




1 






Print CPU id and successful 
initialization 














( "" ) 











Figure 29. General Logic Flow of SDAID Initialization Routines 
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Storage 



SAVSDAR 24 bytes 



LTA 1 200 bytes 



ii ii 



End Supervisor + Real Partitions 



Any virtual 
Partition or 
Minimum 12 K 
Real Partition 



Page pool 

before 

initialization 



Page pool 

after 

instiaifzation 



SOAR E A 

Minimum 6 K taken 
from Page pool 



Phase name 



$$BSDAID 



SDAID 



SDPAR 



SDAID2 



SDEHR 



Figure 30. Storage Layout During Initialization 



ParmjcmJ_ay_qut 



SDAID1 



/ 



SDPAR 



SDAID2 



SDEHR 



MONPARM 




MONPARM 
II 




WORK 




PRTMOD 




CSLMOD 





End Real Storage 



SDEHR 
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PHASE SDAID 



Figure 31 is a tabular summary of the logic flow of phase SDAID (compare Chart GA) 



Entry from job control 

OPEN SYSLST and SYSLCG 

Store TOD clock to determine status cf the clock. 

If rOD clock in not-set state^ MSG UC53I is displayed 

If TOD clock in not-operational state, MSG UC54I is displayed. 

MSG 4C55D is displayed to ask the size cf real stcrage to be allocated to SDAREA. 
A read operation is initiated to get the reply. 

If End is pressed, force a default value of 6K and go tc B. 

If syntax is incorrect, MSG 4C17D is displayed. 

Go to A. 

The storage size is converted to binary and rounded up if necessary to an even 
integer. 

If zero K are asked, MSG UC17D is displayed. 

Go to A. 

If less than 6K are asked, force a default value of 6K . 

The storage size is divided by two tc get the number of page frames tc be removed 
from the page pool. 

GET REAL (SVC 55) is issued. 

If duplicate request, MSG 4C70E is issued and job is terminated. 

If less than 3 page frames are obtained, MSG 4C56I is issued, the allocated 

page frames are freed by issuing FREEREAL (SVC 54) , and the jot is 

terminated. 

Exit by fetching phase SDPAR. 



Figure 31. Logic Flow of Phase SDAID 



PHASE SDPAR 



Processing of SDPAR routines is under 
control of the parameter description table 
included in this phase. 



Fcr each keyword displayed the operator 
can either choose the default values for 
this option by pressing the END key or 
alter the default values by entering, 
depending on the keyword, one or more 
parameters separated by ccmmas. 



For each option, which the operator can 
select to Set up the designed tracing and 
dumping facilities, the parameter 
description table contains one keyword 
entry. 



Fcr each parameter entered by the 
operator for a specified keyword, the 
parameter description table contains, 
depending on the parameter, a subset of one 
cr mere alternatives. 



1^ 
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— 














1 1 i 1 






Keyword 


1st Parameter 


2nd Parameter 


3rd Parameter 




s. 


1st keyword entry 


( 


keyword header 


( 


1st alternative 


N, 


2nd keyword entry 


set of alternatives for 
1 st parameter 


2nd alternative 


3rd keyword entry 


for 2nd parameter 


3rd alternative 


-^ C 


; 


^ 


- 


last keyword entry 


for last parameter 


last alternative 



















Figure 32, Logical Structure of the Parameter Description Table 



The parameter description table thus 
consists of several keyword entries. Each 
keyword entry is composed of one header 
field followed by a set of one cr rrore 
alternatives fields. The set of 
alternatives fields is divided into as many 
subsets of alternatives as there are 



possible parameters in the reply for the 
specified keyword. This logical structure 
of the parameter description table is 
shewn in Figure 32. The physical structure 
of this table is shown and explained in 
Figure 33. 
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Header field ' Alternative field \ 
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Field 


Length 


Header field 






1 


1 


Length of keyword in field 4 






2 


2 


Offset to the next keyword entry - X'FFFF' if last keyword entry 








3 


2 


Reserved 








4 


Given by 1 


Keyword to be displayed 








Alternative field 




1 


1 


Type of reply { 1 ) 






2 


2 


Offset to special check routine if type of reply = VAR. Else X'OOOO' 








3 


2 


Offset to next alternative for this parameter. X'FFFF' if last alternative 








4 


2 


Offset to next subset of alternative for this keyword. X'OOOO' if last subset 








5 


2 


Offset to the field to be set up in parameter list 








6 


1 


Length of the information to be set up in parameter list (2) 








7 


Given by i 


5 Information to be moved, ORed, or ANDed in parameter list (2) 








8 


1 


Length of predefined parameter if type of reply = FIX for this alternative (2) 






9 


Given by i 


3 Predefined reply for this alternative (2) 








(1) 


Type of repl\ 


f VAR X'80' 

FIX X'08' Field 7 will be moved in parameter list 
X'04' Field 7 will be ORed in parameter list 
X'02' Field 7 will be ANDed in parameter list 








(2) Th 


s field is only 


available if type of reply = FIX 

















Figure 33. Physical Structure of the Parameter Description Table 
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Figure 34 is a tabular sumirary cf the logic flow of phase SDP?VR 
(compare flowcharts GB-GD) . 



I^AIN LINE 



Entry froir. phase SDAID. 

Get first keyword frcrr, the Parameter Description Table. 

Link to TYPOQTRT to display this keyword. 

Link to TYPINRTN to read in the operator's reply. 

If return code indicates that end key was depressed, go tc C. 

Link to TSTBYTRT to test the pararreter in input area. 

If return code indicates syntax error in reply, display MSG 4C17D and go 
to A. 

Link to CHKNSWRT to prccess this parameter. 

If return code indicates that an error was found in the pararreter, 

display MSG 4C17D and gc to A. 

If return code indicates that there is another parameter in input area, 

go to B. 

If return code indicates that this parameter was '30', go tc D, 

If last keyword from Parameter Description Table just displayed^ go to D, 

Get next keyword in Parameter Description Table. 
Go to A. 

Exit by Fetch SDAID2. 



Figure 34. Logic Flow of Phase SDPAR (Part 1 of 3) 



TSTBYTRT Subroutine 



If the first character of the parameter in input area is a blank cr a ccmma, 
go to E. 

Test next character of the parameter* 

If X'OO', indicate that this parameter is the last in input area and go 

tc C • 

If X'6B' (comma), indicate there is another parameter in input area and 

go to C. 

If maximum length of reply not reached, go tc A. 

If maximum length reached and next character is X'OO', indicate last 

parameter in input area and go tc C. 



B 
C 



Indicate syntax error in return code. 
Return to caller. 



Figure 34. Logic Flow of Phase SDPAR (Part 2 of 3) 
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CHKNSWRT subroutine 



If first parameter for this keyword take header offset to point to first 
alternative of the first subset for this keyword. 

Test reply type for this alternative (field 1). 

If VAR, check if parameter is correct by branching to the special check 

routine. 

If YES, move information to MONPAR and go to C. 

If NO, go to B. 

If FIX, compare parameter with predefined value in field 9 of this 

alternative. 

If both match and parameter not 'GO', MOVE, OR, or AND information in MONPAR 

and go to C, 

If both match and param.eter is 'GO', indicate the 'GO* condition in return 

code and go to D. 

Test if last alternative for this subset. 

If YESf indicate parameter error in return cede and go to D. 
If NO, point to next alternative for this subset and go to A. 

Test if another parameter in input area. 

If YES, test if another subset for this keyword. 

If YES, point to first alternative of next subset, indicate another parameter 

in input area and go to D. 

If NO, indicate parameter error in return code. 

Return to caller. 



Figure 34. Logic Flow of Phase SBPAR (Part 3 cf 3> 



Figure 35 is a tabular summary cf the logic flew cf phase SDAID2 
(compare flowchart GE) . 



SDAID2 



,. ^^^ ^^^ 

Entry from phase SDPAR. 



Print selected and default tracing and dumping options. 

Print the procedure to change the options dynamically. 

Move first section of the parameter List to the end of the SDEHR CSECT. 

Fetch initialization transient $$BSDAID. 

Print the CPU identification. 
Print message 4C57E. 
Close SYSLST and SYSLOG. 



Exit to Job Control. 



t ^-.i. 



.^ J 



Figure 35. Logic Flow of Phase SDAID2 
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TRANSIENT $$BSDAID 



Processing of $$BSDAID is under control of 
the three tables described belcw. The 
first two tables are built by $$ESDAID^ the 
last one is partially built by $$ESDAID. 



Control List Table 

This table has 15 entries. Each entry 
corresponds one to one to the PIB of the 
15 possibly running tasks or subtasks. 
Each entry contains the address of the 
corresponding PIB if the task is active, 
or zero if it is inactive. This table 
is used to build the other t\vo tables. 

Fix I;ist_Table 

This table has 21 entries. Each entry 
contains^ after initialization, the 
logical address within a page tc be 
temporarily fixed. 

If SDAID2 runs in a virtual partition, 
the first five entries are used to 
accommodate the five addresses from the 
parameter list field MONFIX (see Figure 
27) . The sixth entry contains the 
address of the PSW in the partition save 
area. If SDAID2 runs in real rrcde, the 
first six entries of the Fix List table 
remain zero. 



Each cf the 15 reiraining entries 
contains the address of the PSW in the 
save area of each task or subtask when 
they run in virtual mcde, or zero if 
they run in real ircde. The entry that 
corresponds to the SDAID2 partition is 
always zero. 

EIS-_l!ist_Table 

This table has 56 entries. Each entry 
contains, after initialization, the 
address cf a PSW in which the PER bit 
must be set to 1. 

The first 16 entries overlap with the 
last 16 entries of the Fix List table. 
Entry 17 contains the address of the PSW 
in the LTA save area. If SDAID2 runs in 
real mode, entry 18 contains the address 
cf the PSW in the partition save area. 

Each of the next 15 entries (entries 3^ 
through 48) contains the address of the 
PSW in the system save area cf each task 
or subtask if active. 

Entry 49 contains the address in SAVSDAR 
where the normal DOS/VS new program PSW 

has been saved. 

The last seven entries contain the 
addresses of all DOS/VS new and old PSWs 
in low real storage in which the PER bit 
must be set. 
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Figure 36 is a tabular summary of the logic flew of the transient $$BSDAID 
Ccoropare flowchart GF) 



$$BSDAID 

Entry from phase SDAID2. 

Save DOS/VS normal new program PSW in field 5 of SAVSDAR. 

Seize the system and force a program check to get control in supervisor 
state. 

Build Control List table. 
Build Fix List table. 
Build PER List table. 

Temporarily fix all required pages using Fix List table. 

Initialize the SDEHR CSECT with the following addresses; 

The address of the return PSW in SAVSDAR. 

The address of the register 15 save area in SAVSDAR. 

The address of the normal DOS/VS program PSW in SAVSDAR. 

Move the SDEHR CSECT to SDAREA. 

Initialize all PSWs with PER bit using the PER List table. 

Load control registers 8, 9, 10, and 11 to perform specified tracing/duirping 
functions. 

Get the CPU identification and store it in MCNPARM. 

Free all temporarily fixed pages using the Fix List table. 

Initialize the new prcgrair interruption PSW with the address of the entry 

point of SDEHR in SDAREA. 

Note: SDAID tracing/dumping functions are active from now on. 

Release the system. 

Exit to caller. 



— i 



I ± 



, i 



Figure 36. Logic Flow of Transient $$BSDAID 
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EVENT HIINDLING ROUTINES 



The event handling routines (phase SDEHR) 
perform all the tracing and duirping 
functions of the SDAID program. They 
reside permanently in SDAREA where they are 
moved by the initialization routines. 
Phase SDEHR gets control as soon as a 
program interruption occurs and operates in 
supervisor state with a key cf zero and 
disabled for I/O interrupts, external 
interrupts, and prograrr check interrupts 
due to PER events. 

Two ways of recording may be selected: 

* 22^§_II!23^_l2Mt pu t __c 1 as s ) 
The recording of all s 
takes place in a core 
(SDBUF). The number o 
be kept in this buffer 
size of storage alloca 
during initialization, 
mode is automatic, the 
out on the specified p 
it is full. Otherwise 
overlaid by the newest 



pecified events 

wrap buffer 

f events which can 

depends en the 
ted to SCARE?\ 
If the cutput 

buffer is printed 
rinter as soon as 

the buffer is 

one. 



• £lint_rnode_X2Mt£Ut_classes__0l20 9)_ 

All specified events are recorded on the 



specified printer at the time the event 
occurs. The amount of information given 
tc the user depends on the cutput class 
selected. 



Tc perform the I/O operations an integrated 
printer IOCS takes control of the specified 
printer sc that it is possible tc trace 
events along with customer's output on the 
same printer. 



Phase SDEHR uses (1) the 24~byte SAVSDAR 
in the supervisor and (2) a minimum of 6K 
at the high end of real storage. The 
latter area (called SDAREA) is organized as 
follows : 

1. The phase SDEHR 

2. The parameter list MCNPARM (see 
section 2) 

3. The core-wrap buffer SDBUF 

The set cf event handling routines can be 
divided into the five groups shown in 
Figure 37. The logic flew from groups of 
routines and from individual routines to 
cne another is illustrated in Figure 38. 



SDEHR Event Handling Routines 


Group 


Name 


Function 


Event 

Handler 

Routines 


DISPATCHER 

PEREVENT 

MCEVENT 

DATEVENT 

PGMEVENT 

STOPONEV 


Analyze the interruption code and transfer control to the 

appropriate routines 

Process PER events 

Process MC events, page handling and page enqueue 

Process page translation exception event (code X'1 1') 

Process program check events (codes X'OT to X'12' except X'1 1') 

Receive control if Stop-on-event switch (MONHALT) is on 


Recording 
Routines 


FASTRECX 

PRINTHD 

PRiiNTHDivlC 

PRINTIT 

PRINTBUF 


Record the event in the core wrap buffer (SDBUF) 

Print heading information 

Print heading information tor page enqueue and handling 

Print output as specified by output class option 

Print the core wrap buffer (SDBUF) 


Dumping 
and 

Editing 
Routines 


DUMPSUB 

SPECDUMP 

EDITXBYT 

EDITREGX 

TRANSTD 

INSTxxx 


Edit and print storage 

Edit and print storage 

Translate one or more bytes from HEX to EBCDIC 

Translate one or more groups of four bytes from HEX to EBCDIC 

Translate TOD clock 

Translate six bytes instruction from HEX to EBCDIC 


Printer 

IOCS 

Routines 


IVIONOPEN 

MONPUT 

MONCLOSE 

CSWxxxx 

NOTOPO 

ERRSIO 


Take control of the specified printer 

Issue SIO and test condition code 

Return printer to DOS/VS 

Analyze the CSW 

Process not operational status 

Issue sense SIO or SiO in case of an error condition 


Miscellaneous 
Routines 


TESTLIM 
SAVEXT 
RESTEXT 
BLAMKRTM 


Test whether event between logical storage address limits 
Save previous external conditions 
Restore previous external conditions 
Get a work area 



Figure 37. Summary of Routines Contained in SEEHR 



104 DOS/VS Serviceability Aids 











































Dispatcher 


Event Handler Routines 
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Figure 38. Flow of Logic Between Routines and Groups of Routines 
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CORE WRAP BUFFER (SDBUF) 



OPERATION 



When output class equals FASTREC, the 
recording of the specified events takes 
place in the core wrap buffer (SBBUF). The 
size of this buffer depends en the amount 
of storage allocated to SDAREA during 
initialization. Each entry in SDBUF is 64 
bytes long. The information stored by the 
recording routine is shown in Figure 3 9, 



Event MNEMO or 
PER code 



MC class 



or page translation exception address 



PER event address or MC code 



PGM old PSW 



TOD clock 



TE mask 



Reserved 



Control Register 9 



Control Register 10 



Control Register 1 1 



General Register 13 



General Register 14 



General Register 15 



General Register 



General Register 1 



General Register 2 



At initialization time, WONWRAP in the 
paraireter list contains the SDEUF start 
address, MONEWRAP contains the SDBUF end 
address, and MONWPNT pcints to the first 
entry in SDBUF, 



Each time recording is performed, 
f^ONWFNT is updated with the address of the 
next entry. When the last entry is filled, 
the SDEUF is printed cut if recording mode 
automatic is specified, and WONWPNT is 
updated tc point again tc the first entry, 
otherwise MONWPNT is updated to point to 
the first entry so that the eldest event is 
overlaid by the new one. 



The logic flow of the individual 
routines cf phase SDEHR is described in 
tabular form in the remainder of this 
section. 



Figure 39. Format of Core-Wrap Buffer 
(SDBUF) 
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EVENT H?^NDLING ROUTINES 



Figure 40 is a tabular sumir.ary of the logic flc>? of the Event Handling Routines, 



DISPATCHER 



Entry from program interruption new PSW. 

Store register 15 in field 2 of SAVSDAR. 

Replace the instruction to store register 15 by a branch instruction to get 
control at point G in case a program interruption cccurs during SDEHR processing. 

Save machine check new PSW address and replace it to get control at point F in 
case a machine check interruption occurs during SDEHR processing. 

Move old program PSW to field 1 of SAVSDAR. 

If PER event (X'80'), give ccntrol to PEREVENT routine. 

If MC event CX'^IO'), give control to MCEVENT routine. 

If TE event CX'll"), give control to DATEVENT routine. 

If program check event (X'Ol* through X'12' except X'll') and if program check 

event enabled (switch MONCHK in MONPARM) , gi^;e ccntrol to PGMEVENT routine. 

If stop on event enabled (switch MONHALT in F.ONPARM) , give control to STCPONEV 
routine. 

If interrupted by program check (X'Ol' through X*12'), save old program PSW and 
interruption code and move normal DOS/VS new program. PSW from field 5 to field 1 

of SAVSDAR. 



A 

B 
C 



I— 



Restore machine check new PSW address. 



Replace at the beginning of this routine the branch instruction by the previous 
store register 15 instruction. 

Exit either to point of interruption or to DOS/VS normal program check routines. 

If soft machine check, give control to DCS/VS normal machine check handler 
routines. 

If program check or machine check occurred during execution of specified move or 
compare instructions in the SDEHR editing and dumping subroutines, give control to 
the interrupted subroutine. 

Enter hard wait state. 

.X . 



Note; The labels A through H used in the description of the DISPATCHER are used to 
indicate return points in the description cf the fcllcwing event handling routines. 



L ^ . 



. ^ J 



Figure 40. Logic Flow of the Event Handling Routines (Part 1 of 6) 
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PEREVENT 



Entry from DISPATCHER if PER bit on in interruption code. 

Link to TESTLIM subroutine. 

If event is within limits then: 

If output class is FASTREC, link to FASTRECl subroutine and go to A. 
If output class different from FASTREC, format and print all outputs 
implemented for the specified output class. 



Remove PER bit in interruption cede. 
Exit to DISPATCHER point A. 



Figure 40. Logic Flow of the Event Handling Routines (Fart 2 of 6) 



MCEVENT 



f- 



Entry from DISPATCHER if MC bit on in interruption code. 

If MC class 0, 1 or 2 (reserved to DOS/VS), exit to DISPATCHER pcint C. 

If MC class 5 then: 

If MC code 11 then: 

If page enqueue enabled (smth MCNENQ in MONPARM) , fcrirat and print all 

outputs implemented for this event. 

Go to A. 
If MC code 12 then: 

If page handling event enabled (switch MCNHDL in MONFARM) , fcrirat and 

print all outputs implemented for this event. 

Go to A. 
If MC code 20 then: 

Link to PRINTBUF subroutine. 

Go to A. 

If output class is FASTREC, link to FASTREC2 subroutine and go to A. 

If output class different from FASTREC, format and print all outputs iirplemented 
for the specified output class. 



Remove MC bit in interruption codec 
Exit to DISPATCHER point E. 



Figure 40. Logic Flow of the Event Handling Routines (Fart 3 of 6) 
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DATEVENT 



Entry from the DISPATCHER if interrupticn code is X'll'. 

If TE event enabled (sv^itch KONTE in MCNPARM) ^ then: 
If event within specified limits then: 

If output class is FASTREC , link tc FASTREC3 subroutine and go to A, 
If output class different from FASTREC, format and print all outputs 
implemented for the specified output class. 

A I Exit to DISPATCHER point C. 

L 1 , , __, , ^__ . 

Figure 40. Logic Flow of the Event Handling Routines (Part 4 of 6) 



PGMEVENT 



Entry from DISPATCHER if program check event enabled. 

Save current output class and force output class SUPVISOR. 

Format and print all outputs impleirented for SUPVISOR output class. 

Restore current output class. 

Exit to DISPATCHER point D. 



Figure 40. Logic Flow of the Event Handling Routines (Part 5 of 6) 



STOPONEV 



Entry from DISPATCHER if step on event enabled. 

Link to SAVEXT subroutine. 

Initialize new external PSW address tc get control at point A. 

Enter wait state. 

External interrupt occurred. 

Link to RESTEXT subroutine. 

If non-destroying-duirp required (switch NONDD in MCNPARM) , then: 
Save current output class and force output class DUMPREAL. 
Format and print all outputs impleirented for cutput class DUMPREAL. 
Restore current output class. 
Disable non-destrcying-dump. 



Exit to DISPATCHER point E. 



Figure 40. Logic Flow of the Event Handling Routines (Part 6 of 6) 



SDAID 109 



RECORDING ROUTINES 



Figure 41 is a tabular sumrrary cf the logic flew of the Recording Routines. 



FASTRECx Subroutine 



|.^„^ 



^ 



If entry is from PEREVENT routine, move PER code to the SDBUF entry. 

If entry is from MCEVENT routine, move MC ronemo and MC class to the SDEUF entry. 

If entry is from DATEVENT routine, move translation exception inneiro to the SDBUF 
entry. 

Move all implementation specified infcriraticn to the SDBUF entry. 

Update MONWPNT in MONPARM to point to the next SDBUF entry. 

If last entry was just used then: 

Update MONWPNT to point to the first SDEUF entry. 

If recording mode is AUTOMATIC, link to PRINTEUF subroutine. 



Return to caller. 



Figure 41. Logic Flow of Recording Routines (Part 1 of 5) 



J 



PRINTHD Subroutine 



Link to MONOPEN to get control of the printer. 

Link to MONPUT to space one line. 

Link to ELANKRTN to get a work area. 

Link to TRANSTD to edit TOD clock in this work area. 

Link to EDIT8BYT to edit the old PSW in this work area. 

Return to caller. 



Figure 41. Logic Flow of Recording Routines (Part 2 of 5) 



PRINTHDMC Subroutine 



Link to MONOPEN to get control of the printer. 
Link to MONPUT to space one line. 
Link to BLANKRTN to get a work area. 

Move common text for page enqueue and page handling event to this work area. 
Take page queue entry address, 
! ! Return to caller. 

L X , ,^^^^^^^ 

Figure 41. Logic Flow of Recording Routines (Fart 3 of 5) 
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PRINTIT Subroutine 



Link to MONPUT to print the heading line. 

If output class is FI^STREC or PSW, go to E. 

Edit and print general registers through 15, 

If output class is GPR, go to B. 

Edit and print control registers through 15. 
Dump low storage froir address to IIF. 

If output class is LOCORE, go to A. 

If output class is COMREG then: 

Link to SPECDUMP to duirp COMRG and SYSCCM. 
Go to h. 

If output class is PAGETAE then: 

Link to SPECDUMP to dump segment table, page table and page fraire table. 
Go to A. 

If output class is SUPVISOR then: 

Link to DUMPSUB to dump the entire supervisor. 
Go to A. 

If output class is DUMPREAL then: 

Link to DUMPSUB to dump the entire real storage. 

A I Link to MONPUT to space one line. 

B I Link to MONCLOSE to return the printer to DOS/VS. 

Return to the caller. 



Figure 41. Logic Flow of Recording Routines (Part 4 of 5) 
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j PRINTEUF Subroutine j 

^ ^ ^ 

Link to PRINTHDMC to get control of the printer. 

Print buffer output header lines. 

If SDBUF has wrapped, initialize to start printing with the entry pointed to by 
MON'/vrPNT in MONPARM. 

If the SDBUF has not wrapped, initialize tc start printing with the first entry of | 
SDBUF. 

If no event is recorded in this entry, go to B. 

Format and print the inf orination contained in this SDBUF entry. 

Point to next entry in SDBUF. 

If end of SDBUF is reached then: 

Initialize to point to the first entry cf SDBUF. 
If this entry is already printed, go tc C^ 

Go to A. 

B I Indicate no events are present in SDBUF. 

C 1 Link to MONCLOSE to return the printer to DOS/VS. 



I Return to caller. 

L X 

Figure 41. Logic Flow of Recording Routines (Part 5 of 5) 



J 
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DUMPING AND EDITINS SUBROUTINES 



The SDEHR routines run with the DAT feature 
off^ and the storage area liirits to be 
dumped or edited by the following 
subroutines are not checked for validity. 

The program check due to addressing 
exception which may occur while executing 
predefined move or compare instructions are 
checked by the DISPATCHER, and control is 
returned to the appropriate subroutine 
entry point. 



Furtheruore, the irachine check which may 
occur while executing these same predefined 
rrcve or ccirpare instructicns are checked by 
the DISPATCHER, and contrcl is returned to 
the appropriate subroutine entry point if a 
soft machine check occured. 



In these cases, the subroutine returns a 
character 'X' for each storage location 
cutside real storage. 



Figure t*2 is a tabular summary of Dumping and Editing subroutines. 



DUMPSUB Subroutine 



1 



Round the start address to the lower X'20' boundary. 

Link to BLANKRTN subroutine to get a work area. 

Link to EDIT4BYT subroutine to edit the start address of that line in the work 
area. 

Link to EDITREG8 subroutine to edit the fcllcwing 32 bytes in the work area. 
Notes: - The pointer to process the next 32 bytes is updated by this subroutine. 
- If a program check occurs in this subroutine every byte cutside real 
storage will be replaced by the character 'X'. 

If a program check has occurred while processing EDITREG8, go to B. 

If translation is desired, move the preceding 32 bytes into the work area and 
replace unprintable characters with 'X'. 

Link to MONPUT to print the line. 

If a program check has occurred in this subroutine, go to E. 

Compare the 32 bytes just printed with next pointed 32 bytes. 

Note : - If a program check with addressing exception occurs while executing the 
previous ccirpare operation, ccntrcl is given to G by the DISPATCHER. 

If comparison is equal then: 

If '...SAME...' line not already printed then: 
Link to BLANKRTN tc get a wcrk area. 
Link to MONPUT to print ' . . . SAWE . . . ' line. 
If number of requested lines already printed, go to F. 
Update pointer to process next 32 bytes. 
Go to C. 

If a program check has occurred while prccessing EEITREG8, gc to F. 

If number of requested lines not already printed, go to A. 
F I Return to caller. 
G I Restore old PSW and interruption code. 

Go to A. 

Figure 42. Logic Flow of Editing and Dumping Subroutine (Part 1 of 6) 
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SPECDUMP Subroutine 



Link to EDIT^BYT Subroutine to edit the start address of the area to be durrped. 

Link to MONPUT to print it. 

Enable translation in DUMPSUE. 

Link to DUMPSUB to dump the number of requested lines. 

Return to caller. 

Figure 42. Logic Flow of Editing and Duirping Subroutine (Part 2 of 6) 



TRANSTD Subroutine 



Get the binary clock value in iricroseccnds. 

Divide to convert to seconds. 

If quotient is zero, clear wcrkfield 1 and gc to A. 

convert quotient to decirral in wcrkfield 1. 

Shift workfield 1 right tc obtain iricrcseccnds. 

convert remainder to deciiral in workfield 2. 

Add workfield 2 to workfield 1. 

Link to EDIT8BYT subroutine to edit the result. 

Return to caller. 



Figure 42. Logic Flow of Editing and Dumping Subroutine (Part 3 of 6) 
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INSTxxx Subroutine 



If entry is at label INSTEDPS, substract old PSW ILC from the instruction address. 

Save interruption code. 

Point to the first byte of the instruction. 

If DAT feature is off in the old program PSW, transform LRA instruction to LA 
instruction. 

Load Real Address or Lead Address of the byte pointed to. 

If the address is invalid, ircve two 'Y' characters to the edit field and go to B. 

If a segment translation exception occurred, ircve two 'X' characters to the edit 
field and go to B. 

Link to EDITIBYT to edit this byte. 

Point to the next byte. 

If not the last byte, go to A. 

Restore LA instruction to LRA instruction. 

Restore interruption code. 

Return to caller. 



Figure 42. Logic Flow of Editing and Durrping Suhrcutine (Part 4 of 6) 



EDITREGx Subroutine 



If entry is at label ECITREG8, initialize tc edit 8 fullwords. 

If entry is at labels EDITREG5 or EDITREG, initialization is dene by the caller. 

Link to EDITUBYT subroutine to edit cne fullword. 

Update pointers. 

If more fullwords are to be edited, gc tc A. 

Return to caller. 



% 

^ 



Figure 42. Logic Flow of Editing and Dumping Subroutine (Part 5 of 6) 
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EDITXBYT Subroutine 



I If entry is at label EDIT8EYT, gc to B. 

If entry is at label EDIT4EYT, initialize to return 8 bytes to the caller. 

If entry is at label EDIT3EYT^ initialize to return 6 bytes to the caller. 

If entry is at label EDIT2EYT^ initialize tc return 4 bytes tc the caller. 

Save interruption code. 

Move ^ bytes of user data tc an inner field. 

Note : - If a program check with addressing exception occurs while executing the 
previous operation^ control is given to E by the DISPATCHER. 

Unpack and translate the 4 bytes. 

Go to D. 

Initialize to return 16 bytes to the caller. 

Move 8 bytes of user data to an inner field. 



B 
C 



Note: - If a program check with addressing exception occurs while executing the 
previous operation, control is given tc F by the DISPATCHER « 

Unpack and translate the 8 bytes. 

Move 17 'X' characters behind the previously translated bytes. 

Move to the user the number of requested bytes. 

Restore subroutine tc return 2 bytes. 

Return to caller. 

Restore old PSW and interruption code. 

Reduce length of the ircve instruction by cne. 

If length equal zero, go to D. 

Go to reexecute the interrupted instructicn. (A cr C) . 



Figure 42. Logic rlow of liditing and Dumping Subroutine (Part 6 ot 6) 



PRINTER IOCS 



When the output class is other than 
FASTREC,, tracing and dumping takes place on 
the specified printer at the time the event 
occurs. SDEHR does not use the DOS/VS 
channel scheduler to perform its I/O 
operations; it has its own printer IOCS. 
At the time SDEHR has to perform output, 
the specified printer may be executing an 
operation previously initiated either by 
the system or by the user. 



Before taking control of the printer the 
MONOPEN rcutine tests the status of the 
printer: 



If the specified channel, subchannel, 
and device are available, the SDEHR 
printer IOCS gets control of the printer 
immediately. 

If the channel is still wcrking in burst 
mode, the MONOPEN routine enters a hard 
wait state. 
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If the subchannel is still working with 
the device, MONOPEN enters a TIO loop 
until the channel-end condition is 
stored. 

If the device is still working, the TIO 
loop is entered until the DEVICE-END 
condition is stored 

In both preceding cases, the 
interruption conditions are saved to be 
simulated at the time all the desired 
output is performed. 

If the status received at channel-end or 
device- end time indicates abnoriral 
conditions, the CSW and, if a unit check 
occurred, the sense byte are printed to 
make the user aware that the output may 
be incorrect. 



Before returning control of the printer, 
the MONGLOSE routine tests whether 
interruption conditions have to be 
simulated: 



- If a channel-end condition is to be 

simulated, the last user-executed CCW is 
replaced by a write-no-space CCW. The 
operation is initiated and the user CCW 
is restored before control of the printer 
is returned. 



If a device-end condition is to be 
siirulated, a write-nc-space operation is 
initiated. A TIO loop is entered until 
the channel-end interruption occurs and 
control of the printer is returned. 



MONOPEN Subroutine 



C 
D 



Save CAW, CSW and I/O interruption code extension. 

Issue Test Channel. 

If working in burst mode, go to A. 
If interruption pending, go to D. 

Issue Test I/O. 

If not operational, link to NOTOPO and go to A. 

If busy, go to A. 

If available, go to E. 

Link to CSWOPEN to process CSW ccnditicns and go tc A. 

Issue Test I/O. 

If CSW stored, go tc C. 

If not operational, link to NOTCPO and go to A. 

Move low storage hard wait iressage. 

Enter hard wait state. 

Indicate IOCS is OK. 

Return to caller. 



Figure 43. Logic Flow of Printer IOCS Subroutines (Part 1 of 6) 
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MONPUT Si3broutine 



Initialize CA.W and CCW data address. 

Issue Test I/O, 

If CSW stored, link to CSWSTORD subroutine and go to h. 

If busy, go to A. 

If not operational, link to NOTCFC and go to A. 

Issue Start I/O. 

If not operational, link to NOTCPC and go to i^. 

If busy, go to A. 

If device started, go to B. 

Link to CSWSTORD. 

If abnormal status bits, go to A. 

Return to caller. 



Figure 43e Logic Flo^ of Printer IOCS Subroutines (Part 2 of 6) 



NOTOPO Subroutine 



Link to SAVEXT subroutine. 

Move low storage message. 

Initialize new external PSW address to get control at A. 

Enter wait state. 

External interruption has occurred. 

Link to RESTEXT subroutine. 

Return to caller. 



Figure 43. Logic Flow of Printer IOCS Subroutines (Part 3 of 6) 



118 D0S/\7S Serviceability Aids 



ERRSIO Subroutine 



Initialize CAW. 

Issue Start I/O. 

If busy, go to A. 

If CSW stored, go to C. 

If not operational, link to NOTOPO and go to A. 

Issue Test I/O. 

If busy, go to B. 

If not operational, link to NOTCPO and go to A. 

If device status indicates conditions other than busy, channel end, device 

end or unit exception, go tc A. 

Set first time switch on. 

If channel status indicates conditions ether than incorrect length, go to A. 

Go to D. 

If device status indicates unit check, gc tc A. 
If first time switch is on, link to NOTOFO and gc to A. 
Set first time switch off- 
Return to caller. 



Figure 43. Logic Flow of Printer IOCS Subroutines (Part 4 of 6) 
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CSWxxxx Subroutine 



A 

B 



D 

E 



H 
J 



i If entry at label CSWSTOBD, go to B. 

Save CSW. 

If the device status indicates Qnit Exception, go to C. 

Test the device status. 

If abnormal (see note 1), gc to C. 

If Unit Exception^ go to J. 

If Channel End or Device End, gc tc G. 

Go to J. 

Save the CAW, 

Link to EDIT8BYT subroutine to edit the CSW. 

If unit check bit not on in device status, gc tc E. 

Link to ERRSIO subroutine to get sense byte. 

Test sense byte. 

If intervention required bit on, link to NOTCFO and go to H, 
If Channel 9 bit is en, go to D, 

If entry at CSWSTORD label, go tc H. 

Link to EDIT^IBYT subroutine to edit sense inforrraticn. 

If entry at CSWOPEN label, gc to F. 

If channel status abnormal (see note 2), gc tc DISPATCHER at point H. 

Link to ERRSIO to print CSW and sense inf criration. 

Restore CAW. 

If device or channel status are abnoriral (see note 1 and 2), gc tc J . 

Return to caller at return point 4. 
This indicates normal status conditions. 

Restore CAW, 

Return to caller. 

This indicates abnorrral status ccnditicns. 



|. X 



Note 1? 



Note 2: 



L 



„^^„^^^ ^„_^_. ^ 



Device status is abnorrnal if it indicates conditions other than Busy, Channel 
End, Device End or Unit Exception. 

Channel status is abnorrral if it indicates one of the following conditions; 
PCI, IL, program check or Protection Check, 



J 



Figure 43, Logic Flow of IOCS Subroutines (Part 5 of 6) 
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MONCLOSE Subroutine 



Issue Test I/O. 

If not operational, link to NOTOPO and go to A. 

If busy, go to A. 

If CSW stored, link to CSWSTORD and go to A, 

If no user interruption was killed, go to E. 

Get last command address froir user saved CSW and subtract 8. 

If last command address was zero, initialize the CAW with the inner simulated CCW 
address and go to B. 

Initialize CAW with the last user CCW address- 
Save user CCW and replace it with inner siirulated CCW. 

Issue Start I/O. 

If not operational, link to NOTOPO and go to E. 
If busy or CSW stored, go to B. 

If only a device end ccnditicn was reircved, go to D. 

Issue Test I/O. 

If not operational, link to NOTOPO and go to E. 
If busy go to C. 

If Channel End bit not on in device status, go to E. 

If device status indicates Device End cr Unit Check, 
go to E. 

If any channel status present, go to B. 

Restore user CCW if saved. 

Restore CAW, CSW and I/O interruption code extension. 

Return to caller. 



D 
E 



Figure 43. Logic Flow of IOCS Subroutines (Part 6 of 6) 
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MISCELLANEOUS 



Figure 44 is a tabular summary of the logic flow of the Wiscellaneous Boutines. 



TESTLIM Subroutine 



Get lower and upper limits from control registers 10 and 11. 

Reduce address of event to absolute zero. 

Reduce address of upper limit to absolute zero. 

If event is between limits, add 4 to caller return point. 

Return to caller. 



SAVEXR Subroutine 



Save the following infcrmaticn: 
Old and new external PsWs. 
External interruption cede extenticn. 
Low storage bytes through 3. 
Current value of control registex 0. 

Initialize control register to enable only key external interruptions. 

Initialize new external PSW to give ccntrcl to SDEHR. (PER hit must be cff) 

Return to caller. 



4 

-A 



RESTEXT Subroutine 



Restore the following information saved by SAVEXT subroutine: 
Old and new external PSWs. 
External interruption code extention. 
Low storage bytes through 3. 
Current value of control register 0. 

Return to caller. 



BLANKRTN Subroutine 



Get address of work area one. 

If work area one was just used, return address of work area twc tc the user 
and go to A. 

Return address of work area one to the user. 

Clear the returned work area. 

Return to caller. 



Figure 44. Logic Flow of Miscellaneous Routines 
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TERMINATION ROUTINES 



The SDAID tracing and dumping functions are 
terminated either by issuing the ENDSD 
attention coirmand or by executing the phase 
ENDSD in a virtual or real partiticn. 



The Termination phase and the terirination 
transient perforin the following functions: 



ENDSD Call $$BATTN3 termination 
transient and release the 
partition upon return. 



$$EATTN3 Print the SDBUF buffer. Switch 
off in control registers 8^ 9, 
10, and 11 all fields set up for 
the tracing/dumping options. 
Switch the PER bit off in all 
PSWs and release the page frames 
allocated to SDAREA, 



The general logic flow of the SDAIC 
termination routines is shewn in Figure 45. 



During termination, the SDAID program uses 
the following storage areas: 



• SAVSDAR in the supervisor 



• The logical transient area (LTA) for 
$$BATTN3 



• A virtual or real partition (only if 
termination is via 
// EXEC ENDSD) 



• SDAREA at the high end of real storage 



Figures 46 and 47 show the logic flow of 
phase ENDSD and of the transient $$BATTN3, 
respectively, in tabular form. 



JOB CONTROL 



// EXEC ENDSD 



( Fetch ENDSD j 



PHASE ENDSD 



f Fetch $$BATTN3 j 



Upon return from 
$$BATTN3 



EOJ 



ATTENTION ROUTINE 



ENDSD 



(^ 



Fetch $$BATTN3 



9 



$$BATTN3 



Execute MC instruction 

Class 5 code 20 
to print out SD Buffer. 
Switch off control bits 
in Control Registers 
8,9, 10, and 11. 
Switch off PER bit in 
PSWs 

Issue FREEREAL to 
release SDAREA page 
frames 



f RTN to caller J 



Figure 45. Seneral Logic Flew of 
Termination Routines 
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I 

l. — ^ 

I I Entry from Job Control. 

i i 



ENDSD 



I 



Indicate to transient $$EATTN3 that the caller is phase ENDSD, 
Fetch $$BATTN3. 
Exit to Job Control. 



Figure 46. Logic Flow of Phase ENESD 



$$BATTN3 



Entry from the attention routine or from phase ENDSD. 

Issue Monitor Call (class 5, code 20) to print the core wrap buffer. 

If SDAID is not active^ go to A. 

Seize the system and force a program check to get control in supervisor state. 

Switch off all SDEHR control bits in control registers 8, 9^ 10 and 11. 

Restore normal DOS/VS new program check PSW and switch off the PER bit. 

Build Control List table. (see section 3) 

Build Per List table. (see section 3) 

Switch off the PER bit in all PSWs using the PER list table. 

Release the system. 

Issue FREEREAL to return to the page pool all page frames allocated to SCAREA. 

Exit to the attention routine or the phase ENDSD. 



Figure 47. Logic Flow of Transient $$BATTN3 
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Chart GA. SDAIDl - Get Page Frames and Allocate Them tc5 SDAREA 

Refer to Figure 29. 



**** 
* * 

* &3 * 

* * 
♦ *♦* 



* * 

* SDAIDl * 

* * 



Hi # :(! # )|cQ 1 :|< :|t :|c :!< 4 * * * >•> 4< 

* * 

* OPEN * 

* SYSLST * 

* AND ♦ 

* SISLOG * 



♦ STOEE * 

♦ TOD * 

♦ CLOCK ♦ 

♦ ♦ 



*B3* 



4c 4<***** 



CLOCK 

IN SET 
STATE 



* CONVERT ♦ 

* SDiREA * 

* SIZE TO * 

* BINAEY * 



i^*itf*iltC 2**** ****** 

* HOOND OP * 

* SIZE TO * 

* NEXT EVEN * 
INTEGEB 



D3 ♦. 
, * *. 
.* ZERO *. YES 
K .*... 
♦ .SPECIFIED.* 



* PRINT * 

.X HESSAGB 
* acl7D * 

:|( « « « * sti i|i * iti * * iti * * * Id 4i 



* * 

* 3^ * 

* ♦ 



*C4 
MESSAGE: 

•INSUFFICIENT SDAID 
SPACE REALLOCATE* 



iPRSTAT X 

* «07E ♦ 

* MESSAGE * 

* 40531 TO * 

* OOTPOT ♦ 

* (SEE * G21 * 



* :(t 3t<G 1 * :(c :|c 4 9| 4i :|. * 4 3|c 4 * 



4* 41 :(e«4t*«*** :)«*«*** 



*F2 

OOTPOT AREA «AS 
INITIALIZED WITH 
MESSAGE «*C54I: 'TOD 
NOT OPERATIONAL* 



MESSAGE: 'TOD IN 

ERROR STATE' OR 

'TOD NOT OPERATIONAL' 



NO 



,* 6 K *. 

OH MORE 

*. SPECIFIED.* 



♦ ♦*♦ 
FORCDEF X 

m****Y3********** 

* * 

* TAKE * 

* DEFAULT * 

* VALUE * 

* OF 6 K * 

#4*************** 



**** 

« 4 
* B5 * 



INSOFF X 

444 44B5********** 

* HOVE HSG ♦ 

* 4C56F TO * 

* OUTPUT * 

* AREA * 

* (SEE * CH\ * 
444 4*#4<4<*4<4>4t*«*** 



44444C5********** 
4 * 

* RELEASE * 

* SEAL STORAGE ♦ 

* OF SD ♦ 

* AREA * 
4 44 4*4**441 itc «* 3|t# ♦* 

***♦ 



4*** 
DOPRINT i 

**4T)5*4********** 



44*4********* 



*4*** 1^5 ********** 



CLOSE 
SYSLST, SYSLOG 



4***4**44******** 



X 

****F5***** 

* EOJ 

* SVC 1 
* 

44*444*44*4 



♦ G4 
MESSAGE: 'DUPLICATE 
REQUEST FOR SD OR PD 
AREA' 



* GET REAL * 

* STORAGE * 

* FOR SDAREA * 

* fSVC 55) * 
44*********4**4 4* 



X 



* PRINT 
MESSAGE 
* 4C55E * 
(SEE * H2i 
4*4************** 



**** 

* * 

* Jl *.x 



**** 
CLEARTH X 

4**J -1****4*4***** 



4 4************44 4 



*H2 
MESSAGE: 
'GIVE SPACE 
FOR SDAID' 



4*4* 4H 4 ********** 

* * 

* HOVE HSG » 
X* TO OUTPUT * 

AREA 



**** 

4 * 

* D5 * 

* * 
**♦* 



♦ **f;5****4***** 

STORE START * 

AND END ♦ 

ADDRESS OF * 

SDAREA IN * 

PARAH, LIST * 

44************* 



44* **H5 ********** 

* CALCULATE AND * 
* STORE LENGTH OF* 

* EVENT HANDLING * 

* ROUTINE IN * 

* PARAK. LIST * 

*********** ***4** 



*4**J5 ********* 

* FETCH * 

* SDPAR * 

* * 
*4 4* *********** 



*♦** 
♦ , YIS * * 

.*. ...X* F3 ♦ 



**** 

♦ ♦ 

* A3 * 
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Chart GB. SDPAR - Initialize an Operator-tc-Systerr Coirirunication (Part 1 cf 3) 

Refer to Figure 29. 



* * 

* SDPAR * 

* ♦ 



* GET 

* FIRST 

* KEYWORD 

♦ 

♦ **♦ 

* * 

* CI *.x. 

* * 

♦ **♦ 
TYPOOT X 



:)cj|i«*4<*****4(3|<)|t*4<4t* 



:«C4<4<D1 **'('* **^***'*<'(< 



♦ **♦ 

* * 

* B3 * 

* * 



B3 *. 
.* ANY *. **** 

.* MORE *. YES * * 
*. PARAMETERS .*....!* F1 * 



♦ *** 

♦ * 

* C3 *.X. 



4c*4c*C4 ********* 

* FETCH * 
.X* SDAID2 * 

* ♦ 

:« :|c # 4i 4c 3K a|i * * 3|c * * 4t * i<( 



* 4< a(t 4t 4c :(. :4i # « 4( * i(< 3|c t :(i itc * 



.♦ ♦. 


**♦* 


.* *. YES 


* * 


*. DEFAOLT .*. .. 


X* C3 * 


♦, TAKEN .* 


* ♦ 


*. ,* 


♦ *** 


*. .* 




* NO 




**** 




* * , 




* PI *.X. 




♦ * 




**♦* 




TSTBYT X 




*«4i*>l<Fl ********** 




* TSTBYTHT C * 




♦-*-*-*-♦-*-*-*-* 




* POINT TO * 




* PARAMETER IN * 




* I/O AREA * 





**)|ci|c*£;3*«4c4c4c4c**** 

* * 

* GET * 

* NEXT * 

* KEYWORD * 

* * 



* CI * 

♦ * 

**4c* 



*4<4c************** 



SYNTAX *. NO 
VALID .*... 

*H2 .* 



EREMSG 

*«*G 2 ************ 
DISPLAY 
♦MESSAGE 40170: * 
. ..X 'INCORRECT 

* lEPLY • * 



4c*4i*4<H 1 ********** 
*CHKNSWRT GD * 

He-*-*-*-*- *-*-.*-♦ 

* COMtARI * 
*PARAHETER WITH * 

* ALTERNATIVES * 

************ *!|C*I|>« 



****** *4c********* 



J CI * 
"♦♦*♦"" 
♦H2 
SYNTAX IS INVALID IF 
FIRST PARAHETEE IS 
PRECEDED BY A COHMA 
OR BLANK, OS IF PARAMETE 
LENGTH EXCEEDS MAXIMUM. 
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Chart GC. SDPAR ~ Initialize an Operator-to-System Coroniunication (Part 2 of 3) 

Refer to Figure 29, 



* * 

* TSTBYTRT * 

* * 



* POIKT TO ♦ 
♦FIHST CHJIRACTE5* 

* I» PAHMETER ♦ 

* * 



FIRST 


* 


flS 


* 


¥mmm 


CHARACTER 




*. ... 


X* 


J1 


BLANK OR . 


4> 




♦ 




♦.conn A.* 








r<*** 



CONTSCAN X 

* POINT TO * 
♦NEXT CHARACTER * 

* IS PARAMETER * 

* AHD SATi ♦ 

* ITS A1>DR. * 



E\ *. 
.♦ * 
.* EHD 
OF LAST 


*. 
* 

* 


.!!! 


x**ViiSI?JlE*** 




*. .♦ 
* NO 

J. 
_^F1 *.^ 

.*CHAHACTEB= 

conn A 


IIS 
*. .. 


X * LAST ♦ 
♦ PABAHETER ♦ 

*♦♦♦ 

* B2 * 

***♦ 
POLLON 

* SET SWITCH * 
....X* TO INDICATE ♦ 


.X 

} 
* 
♦ f 




**. .* 

*. . * 

* HC 




* HORE * 
♦PARAMETERS * 


t 

[1 * 



G1 *, 
.* MAX ♦ 

NO .* LENCiB Of 
.,*. INPOT 

♦.EXCEEDED 



.** NEXT '♦. YES 
*. PAEAMETEB= .*.... 

*. .♦ 

♦*** ! «^ 
* ♦ 


* * 
X* E2 ♦ 

* * 


.... . 

♦ SIT RETURN * 

♦ CODE TC * 

♦ INDICATE « 


H'ESloig-lili^JI^Si 




♦**♦ * 

♦ * , 

* K1 *.X. 
♦♦** 




*4<4t4>Kl ********* 

* RETDRH TO * 

* CALLER * 





*4i*:(c«it>«**4i:»4>i|i4i4 
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Chart GD, SDPAR - Initalize an Cperatcr-tc-Systerr Ccirirurication (Part 3 of 3) 

Refer to Figure 29. 



* * 

* CHKNSWRT * 

* ♦ 



.* 1 ST *. 

PABSMBTEH 
FOE THIS 
. KEIWOEC . 



* SET HETORN * 
X* CODE TO * 

* INDICATE NOT * 
♦FIRST PARAMETER* 

:»: :|c * ;)( :4t 4i « )(< :«c :* :4c * i(( « * * « 



***♦ 



El *. 

.PARAMETER. 
* LENGTH= *. NC * ^ 

ALTERNATIVE .*....X* B5 * 
*. LENGTH .* X * * 



* YES 



.* ANY *. 
. * MORE *. Ni 
.ALTERNATIVES .*. 
*.IN TABLE .* 



* AU 
THERE IS AN 
ADDITIONAL 
PARAMETER {IN 
THE INPDT AREA) 
FOR WHICH THERE 
IS NO ALTERNATIVE 



SETRTER1 

* SET RETURN * 

* CODE TO * 

. ..X* INDICATE *X 

* ERROR * 
(SEE * Al) 



**** 

* * 

* B5 * 



3tc :(<*ijc4e* 4< %** ♦ ***** 



* POINT TO * 

* FIRST SET OF * 

* ALTERNATIVES * 

* FOR * 

* PARAMETER * 


*3|C***C2 ********** 

* * 

* POINT TO * 

* NEXT SET * 

* OF * 

* ALTERNATIVES * 


*****(;:3 ********** 

* INDICATE * 

* THAT THERE IS * 

* ANOTHER * 

* PARAMETER * 

* TO BE FETCHED * 
«««(**4<***** ****** 


*♦♦» l 
* * X 




.' 


* D1 *.X. 

* * . 






GETPAIAM X 
rSTTYP .*. 

D1 *. 
.* ♦ . 
.* TYPE OF *. VARIABLE 
*. PARAMETifi .*.... 

♦. . ♦ . 




* POINT TO * 

* NEXT SET OF * 

* ALTERNATIVES * 

* IN TABLE * 



3te********* ****** 



*****f 5**!»<**xt**** 

* * 

* POINT TO * 

* NEXT SET * 
*0P ALTERNATIVES* 

* * 

4<]0c*3tc* ************ 



*:t<**£3********* 

* RETORN TO * 

* CALLER * 

* * 

:4c«**j(c**:<<**:«t**;4t* 



SET RETORN 

CODE TO 

INDICATE 



*s|<i(e* ************* 

RRBTORN=l* 



iiicv«*H'| V********* 



* 


* 


****H2********* 


* MOVE 


* 


* RETORN TO * 


♦PARAMETER INFO 


♦ 


* CALLER * 


* TO PARAMETER 


* 


* * 


* TABLE 


* 


*****4*****i|c*** 


41**************** 




**** * 






* * 






* Jl *.X. 






* * 






**** X 






STFLLP .♦. 




SETRTKWD 


Jl *. 




4t*««i|cj2********** 


,♦ ANY *, 




* * 


.♦ MORE * 


. NO 


♦SET RETORN CODE* 


*. PARAMETERS 


»*...» 


s . . . X* TO INDICATE * 


♦, IN I/O .* 




* TEST FOR LAST * 


*. .* 




* KEYWORD * 


*. .* 




4c**************** 


* YES 




RRET0RN=8 



«4c:«c**H3********** 



*!tc4c*4c:tc********itc** 



**iX:{c4cJ(|i|c*«***4c*:tc* 

* * 

* MOVE INFO * 
.X*INTO PARAMETER * 

* TABLE * 

* ♦ 

4<Mc4c* ************* 



* B3 * 

* * 
**** 



*♦*♦ 

* * 

* B5 ♦ 

* * 
**** 
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Chart GE. SDAID2 - Print Selected or Default Tracing/Duirping Options 

Refer to Figure 29. 



* * 

* SDAID2 * 

* * 



* PRINT DEFADLT ♦ 
OPTIONS fcND 
♦ OPTIONS * 

SPECIPIED 



♦ STOEl STAHT * 
♦AND END ADDIESS* 
*0F SD CORE-WEAP* 

* BUFFER IN * 
♦PARAMETER LIST * 



PRINT 

* PROCEDOBES ♦ 

FOR 

* CHANGING * 

PARAMETERS 



♦MOVE FIRST PABT^ 

♦ OF PARAMETER ♦ 
♦LIST 10 END OF * 
♦EVENT HANDLING ♦ 

♦ ROUTINE ♦ (E2) * 



_♦-*-*-*-*- 



«««#**« 4<!«'** ♦it' * 4** 



**-^Q1***:ti***^cHt**m 



♦ E2 
FIRST PART OF 
PARAMETER LIST 
INCLUDES PARAMETERS 
OP TO HONEND THIS 
PART OF TBI LIST IS 
REQUIRED BI THE EVENT 
HANDLING ECOTINES FOR 
COMMUNICATION BETWEEN 
THE SDAID MODULES 



#««3tt3|<**:|i#4i**4i4i4i#* 



♦**Hl ******* 
PRINT 
♦ MESSAGE 

1C57I 



♦ H2 
MESSAGE: 
"SDAID 

SUCCESSFULLY 
INITIATED" 



♦ * * * 

♦ ♦ CLOSE ♦ ♦ 

♦ ♦ SYSLOG ♦ ♦ 

♦ * AND ♦ ♦ 

♦ ♦ SYSLST ♦ ♦ 
***************** 



* * 

* EOJ * 

* * 
*************** 



^ 
r 
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Chart GF. $$BSDAID - 



Initialize Event Handling Routines, PSWs, 
Refer to Figure 29. 



and Control Registers 



***♦ 

* * 



« * 

* fJBSDAID * 



♦ GET iDDBISS ♦ 

♦ OP S*TI ♦ 

♦ IBB* ♦ 
« IB S7SC0H * 



* STORE ADDRESS ♦ 

* OP lETOBH * 

* PSt *HD * 

* REGIS IH * 
♦PARAHBTBR LIST * 



♦ SA?E DOS 

♦ PGM 

♦ »PS« 

# 



«4>*«4rs|*«.4>*«««**4. 



«*4>4i4i4t**4i«**4t*«4i4t 



PORCCHK 

♦ ■ FORCE * 

♦ PB06BAN ♦ 

♦ CHECK TC ♦ 
♦GET SOPERVISOR ♦ 

♦ STATE * 



♦ » 

♦ B3 ♦ 

♦ » 



* GET ADDRESSES ♦ 

♦ OP PSt'S PROH * 

♦ SYSTBi! SI?B ♦ 
♦AREA AND STORE * 

* IH PER LIST ♦ 



♦ GET ADDRESS * 

* OP PSW PROH * 

♦ LTA SAVE AREA * 
» AMD STORE IH * 

* PER LIST * 



* GET ADDRESS ♦ 

* OP PSi PROH * 

* CDRREHT ♦ 

* PARTITION * 

* SAVE ABBA * 



* ctr 

STORE RBTPRH 
PSB, BEG 15, 
AND DOS PGH 
NPSW PROR 
PARAHETBR LIST 



* Dft 
ADDRESS OP PSW 
IS STORED IH 
THAT PART OF 
THE PIX LIST 
RHICH OVERLAPS 
HITH THE PER LIST 



E3 ♦. 

.♦CDRREHT*. 

* PABTITIOB ♦ 

RONNIHG 
*. VIRTUAL .* 



TRHODCOR 

♦ STORE ADDRESS * 
YES ♦ OP CORRBHT ♦ 

.......,.X* PARTITIOH ♦ 

♦ PSW IH FIX * 

♦ LIST (♦D4) ♦ 







* HO 




X 




STORE DDRESS 






OP COBIENT 






PARTIT OH PSH 






IH ER 






LI T 




** 


|>4i«4i4e*« 








.X 





61 ♦. 
.♦CORBEMl*. 
PABTITICH ' 

BDNHIR6 
. VIRTDAL . 



♦ rSEP&SE TO * 

♦ FIX EBB ♦ 

♦ AND PAR AH ITER ♦ 

♦ LIST IH THIS ♦ 

♦ PARTITIOH ♦ 



APTPIX X 

* STORE PIB ♦ 

♦ ADDRESS CF ♦ 

♦ BfERf ACTIVE ♦ 
♦TASK OB SUITASK* 

* IN THE CllXST * 
***************** 



♦ B3 ♦ 

* * 

♦♦♦* 



RETOOR X 

*****Q2********** 

♦ GET ADDRESSES ♦ 

♦ OP PSi PROM ♦ 

♦ SAVE ARIA ♦ 

♦ OP REAL ♦ 

♦ PARTITIOHS ♦ 
***************** 



*****H3**** ****** 

♦ * 

♦ STORE ♦ 

♦ ADDRESSES ♦ 

♦ IH PER ♦ 

♦ LIST ♦ 
***************** 



*****j J********** 

♦ GET ADDRESSES ♦ 

♦ OP PSS PROS ♦ 

♦ SAVE AREA OP ♦ 
VIRTUAL ♦ 



*****f^j********** 

♦ * 
♦STORE ADDRESSES^ 

♦ IH PER LIST ♦ 

♦ ARD FIX ♦ 

♦ LIST ♦ 
***************** 



FIXIN-; X 

*****f^K,********** 

♦ TFIX FIX PAGE ♦ 

♦ ♦ FRAMES ♦ * 

♦ ♦COHTAIHIHG ♦ ♦ 

♦ ♦ VTRTOAL ♦ ♦ 

♦ ♦ ADDRESSES ♦ ♦ 
***************** 



*****^%********** 

♦ INITIALIZE ♦ 

♦ AODRiSSSBS IH ♦ 

♦BV^Hf RAHDLISG « 

♦ BOOTIHE ♦ 

♦ (SEE ♦ C4J ♦ 

***************** 



*****rs********** 

* * 

♦ DISABLE ♦ 



***************** 



*****'IJ€^********** 

♦ * 

♦ HOVE THE ♦ 

♦ BVBHT HAHDLIHG ♦ 

♦ BOOTTHB * 

♦ TO SD AREA * 

***************** 



*****f^K,********** 

♦ SET PER ♦ 

♦ BITS OH FOR ♦ 

♦ ALL ACTIVE ♦ 

♦ ENTRIES ♦ 

♦ IH PER LIST ♦ 
***************** 



****ff^********** 

* 

STORE CPO ♦ 

in IH * 

PARAMETER ♦ 

LIST ♦ 

**************** 



*****Q^********** 

♦ * * * 

♦ ♦ TFUBE ♦ ♦ 

♦ ♦ FREE ALL ♦ ♦ 

♦ ♦ VTRTOAL ♦ ♦ 

♦ ♦ PAGES ♦ ♦ 
***************** 



*****^c^********** 

♦ STORE START ♦ 

♦ ADDRESS OF ♦ 

♦ EVENT ♦ 

♦ HANDLING ♦ 

♦ ROUTINE ♦ 
***************** 



*****jtj********** 

♦ * 

♦ P.HL1»SE * 

♦ THE ♦ 

♦ SYSTEM ♦ 

♦ * 

***************** 



****}^'y********* 

* * 

* RRTHRN ♦ 

* * 

*************** 



130 D0S/7S Serviceability Aids 



Chart GG. MONENTPG - Event Handling Routine (Fart 1 of 2) 



* ♦ 

* MONENTPG * 

* ♦ 



* k2 
FIRST INSTEDCTION 
IS SET TO k 
BRRNCH TO GIVE 
CONTEOL TO "IHTCHK" 
IN CASE K PROGRMl 
CHECK OCCOBS WHILE 
INTERRUPT HANDLER 
EONNING 



MONENTPG .*. 










B1 *. 










.♦IS * 










* SRITCH 


♦ 




ris 


41 


*.♦ A2 .* 
*. .* 
* HO 


* 


'.* 


X 

***** 

*GH * 












♦ B3* 












Itc * 












* 












EBTCHK 




X 








4>*3ft*#Cl ****'*■■*'**** 




* 






* 




* 


STORE 




* 




* 


TC 


)D 




* 





REFERENCES ***** 
TO 6GB3: * ♦ 
GKD1, GKH1 * ** 



**** 

* * 

* B3 * 

* * 
ill*** 



DOS 

PGM 

CHECK 



* G3 * 

♦ ♦ 
**♦* 



itt*^'************** 



.* PAGE *. 

, TRANSLATION . 
♦.EXCEPTION.* 



SETCKSW X 








MONENDB .*. 


**D1******* 








D3 ♦. 


* SET PGM * 








.* *. 


♦ CHECK * 








.♦ PGM CHECK ♦. YES 


♦ SWITCH TO * 








♦. B?ENT .*.... 


* BRANCH * 








*. ENABLED .* 


*(SEE * A2) * 
i,*********n, 








*. . * 








*. .* X 










* NO ***** 






REFERENCES 


*GK * 






TO 


GGE3: 


X. * B5* 




* E2 


GJB1 


, GKG5 


♦ ♦ 




CONTEOL WILL 




'jfm*** 


* 


X 


BE GIVEN TO 




* * 


PGHEVENT 


. *. 


"SDKACHEK" 




* ** 


MONENDX X 


El *. 


WHEN A MACHINE 




* * 


**it,*ilf£-^^,********* 


.* *, 


CHECK OCCOES 




* 


* * 


.♦ MACHINE *. If IS 






* SAVE OLD ♦ 


*. CHECK .*. 








..X* PSW- ILC * 


*. *E2 .* 




* AND INT. CODE * 


♦ . . * 








♦ ♦ 


*. .* 










* NO 


***** 
*GH * 
* H4* 

* * 

* 








MONRETPO X 








MONRETPN X 


*****f[*****lf**** 










* * 








* PREPARE * 


* PEEPASl ♦ 








* TO RETORN ♦ 


* TO EETUBN * 








* TO DOS PROG. * 


* TO USER * 








* CHECK * 


* PEOGBAH * 








* ROUTINE * 


********** ***ilf,^iti* 








**:t:****4i1f^fi******:t: 



*mm**B'y********** 

* * 

* RESTORE ♦ 

* OLD PSf- * 

* ILC, AND ♦ 

* INT12E CODE * 
***************** 



**** 

* * 

* C5 *.X 



.* STOP *. 

. 01 EfENT 
♦ .REQUESTED.* 



.♦ HAS *. NO 

EVENT .*..!, 

♦.OCCURRED .* 



X 

***** 
♦GH * 



4<*4t**ES ********** 

* * 

* SAVE * 

* EXTERNAL * 

* IlfElRUPT * 

* INFO * 

**il,***itt********** 



**m**f^*****m**^,t, 

* INITIALIZE * 

* BXTBEHAL HEW * 

* PSW TO GIVE * 
♦CONTHOL TO EX- * 
*TINT (SEE * H51* 
4<****4t*****4i***»* 



.* PEE 


* 


lis 


♦. EVENT 




*. .. . 


*. 


* 




*. .* 






*. . * 




X 


* NO 




***** 


*♦*♦ 




*GK * 


♦GK * 




* B3* 


* H3 *.X. 




* * 


* * 




* 


**** X 




PIREVENT 


HONTSTMC .*. 






HI ♦. 






.♦ * 






.* MONITOB 


♦ . 


YIS 


*. CALL 




*. ... 


*. 


* 




*. .* 






*. . * 




X 


* NO 




***** 


REFERENCES**** 




♦GJ * 


TO GGJ1:* * 




* B1* 


GJF3, GJG1* * *.X. 




* * 


* * 




* 


*♦** X 




HCEVENT 


HONTSTDT . *. 






J1 *. 






.* *. 






.* PAGE 


*, 


YES 


*. TRANSLATION 


♦. ... 


♦.EXCEPTION. 


* 




♦ . .* 






♦. .♦ 




X 


* NO 




***** 
♦GK ♦ 
* B1^ 


X 




* * 


*♦** 




* 


* * 




DATEVENT 


* B3 * 






* * 






♦ *** 







**** 

* * 

♦ G3 ♦ 



G3 *. 

.* WAS *. 
.* INTERRUPT *. 
«■, CODE 

*, STORED .* 



***♦ 

* * 

* C5 * 

* * 

**** 



4c)|t4t«*Q54>**4e*** 



'** 



* i AIT * 

* ACCEPT * 

* T!XTRHNAL * 

* TNTERRUPT * 

**m***in********** 



♦ BTSSTQIE IXTER. * 

♦ TNTERRUPT ♦ 

♦ INFORMATION ♦ 

♦ * 

***************** 



***** 
*GH ♦ 
♦ B1^ 
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Chart GH. MONENTPG - Event Handling Routine (Fart 2 of 2) 



*G6 * 
♦ H5* 



***** 
*GG * 
* B1* (SEE CHART ! 



B1 *. 

.* HON- *. 

♦DESTKOIINS ♦. 

DOMP 
♦.REQUESTED.* 



*****C1 «***3|c*:|(4o)t* 

♦PRINTBOF GL * 

♦-♦«.*-*«*_*_*»♦-♦ 

* FHIHT * 

* SDiBEA * 

* BDFPER * 
jft** ******* ******* 



««:»I**Q1 9(t«*Jt<*«*3)C** 

♦FEINTIT GH * 

♦ -♦_♦_♦-.*-♦«♦«, !»<-♦ 

* DUMP * 

* REAL ♦ 

♦ STORAGE ♦ 

****4<* *********** 



♦ *♦* 
LEAfDlSP X 

**g1******* 



INTCHK X 

****>)te 3** ******** 

* INDICATE THAT * 

* THE INTERSDPT * 

* IS A RESULT * 

* OF A PBGM * 
*CHCK (SEE * BH) * 

*****:(( 4£*«*%:(c***** 



**** 


* 


* 


* C3 


♦. X. 


* 


* 


**** X 


TCHK1 


. *. 




C3 *. 






.* 


INTERRUPT 


*. 


IN EDIT 


♦ . 


ROUTINE 



* BU 
THE COMPARE 
INSTRUCTION AT 
OLDCOHP IS 
INITIALIZED «ITH 
THE IMMEDIATE 
X«2C«- ADDRESS OF 
PGM CHCK OLD PSl 



IHTSXIT1 
INTEXIT2 

*«*I|C«(^4**«3)C ****))<* 

* PRINT 'X'S * 

* AND UPDATE * 
. ..X* SOURCE *. 

* REGISTER * 



■* 41********1******* 



INTERRUPT *. YES 

IN OUMPSUB .♦ 

. ROUTINE ,* 



E3 



.X* 



EDIT AND ♦ 

PRINT *. 

CURRENT * 

* LINE * 

***********«**)ti*4[ 



RESET EVENT ■ 
HAPPENED 
SWITCH 
* * 

*****t***** 



**F1******* 

* RESET * 
♦ PROGRAM- * 

CHECK SWITCH * 
*T0 STORE B 15* 

♦ (SEE GG-A2) * 
**********'* 



****Qj4l3(t*«*«*)|l)t> 

* * 

* RETURN * 

* ♦ 
*************** 



INSERT 



.* INTERRUPT ♦.IBS * 

*IN INSTRUCTION.* X* 

♦.EDIT SOU-.* * * 

*.TINE . * * * 

*. ,* ♦*****♦**♦***♦*** 

* NO 



*****j>3 ********** 

* * 

* MOVE MSG * 

* 'O^Ee' TO * 

* LOW REAL * 

* STORAGE * 
***************** 



***)«,Q3**9tt«)|<l4<*«« 

* HARD * 

* WAIT * 

* * 

*:(<:|c**4<********* 



****C(^********4c 

* RT'.tURN TO ♦ 

* 1NTERI?UPTED * 

* INSTRUCTION * 
*************** 



****D5*****#*** 

* J^ETURN TO * 

* DUMPSUB * 

********lt:^***** 



****T?C^********* 

* RETUT^N TO * 

* INSTEDIT * 

* * V 5 * 

«3(C9tt*****4t****** 



* P5 
RETURN IS 
TO LABEL 
"RETFINST" 
WRICK CAUSES 
TERMINATION OF 
INSTRUCTION 
EDITING 



***** 
*GG ♦ 

* El* 



SDMACHEK .*. 

HU *. 
.♦UNCOR- * 
.* RECTABLE 
*. STORAGE 
*. ERROR 



«*«*T)5********* 

* GIVE CONTROL * 

* TO DOS/VS * 

* ERROR HANDLER * 
*************** 



*****j^ ********** 

* INDICATE THAT * 

* INTERRUPT IS * 

* A RESULT * 

* OP MACHINE * 
♦CHECK (SEE *J5)* 

**********4i****'*:ti 



* a5 

THE COMPARE 
INSTRUCTION AT 
OLDCOMP IS 
INITIALIZED WITH 
THE IMMEDIATE 
XnU'- THE 
MACPINB CHBC!^ 
OLD PSW 



* C3 * 

* * 
**** 
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chart GJ. 



MCEVENT 



***** 

*GG ♦ 
* H1* 

* * 



**♦* 

* * 

* B3 ♦ 

* * 
♦ ♦** 



**** 

* * 

* B5 ♦ 

* * 
**♦* 



.♦ BESEHVED ■■ 
*. D0S/7S MC 
*, CLASS . 



CI 



X 

***** 
*GG * 

* B3* 
* * 



* INDICATE * 

* EVENT * 

* HAPPENED * 

* * 

4<**************** 



. * PAGE 
. HANDLING 
*. ENABLED 



**** 

* SDAID *. NO * * 

DEDICATED .*, ...X* B3 * 
*.MC CLASS .* * * 

♦. .* *♦♦* 

*. . ♦ 
* YES 



PAGE *. YES * * 

ENQDEOE .*. ...X* G5 * 
ElfENT .* * * 

*, .* ***♦ 



. * *. **** 

PAGE *. IIS * * 

HANDLING .*. ...X* B5 * 

. E^ENT .* * * 



C3* '*. 


itij|i«4t4cC4 ********** 


** 


4c«*e5********** 


♦ ♦. 


♦FASTREC2 GN* 






OIJTCL *. YES 


«.)K-«-*_*.««4i.4e-* 




INDICATE * 


= PASTEEC .*...... 


..X* BOILD HC * 




H«i?iK"io J 


.* 


♦ ENTEY IN ♦ 




*. . ♦ 


* BDFPER * 






*. .♦ 


***«******4>«4(«*i|(* 


*****3t<4<********** 



:4c#!tc:tc;)t :»«********** 



4c** **]g 3 *********)•> 

*PBINTIT GM* 

*-.♦_*_♦_*-♦-*_*_* 

* PHINT * 

* EVENT * 

* * 
4>******«**«****** 

**** 



..X* B3 * 

* * 

»*** 



3«(:|i*:*3«(G-|4<** ******* 

^PRINTBDF GI* 

* PBINT * 

* SDA'^EA * 

* BOFFER * 

:)e )|i 4c «#«4e^4i* ******* 



***** 
*GG * 
* J1* 



**** 

RETBCNOS 

*i|ip3***4t*** 

* * 
* SWITCH OFF 

♦ MC BIT 

♦IN INTEEIOPT 

* CODE ♦ 
*********** 



***** 
*GG * 
* Jl* 



*** 


#411)5********** 




FORMAT 


* 




AND T»RINT 


* 




PAGE 


* 




HANDLING 


* 




EVENT 


* 






It... . 






X 






**** 






* * 






* P3 * 






* * 






**** 







**** 

* * 

* G5 * 

* * 
***♦ 




SERVENQ 

.** 
*. 
*. 


X 

.*, 
55 *. 
d * 
PAGE 
ENQtJEOE 
ENABLED 


.* 



* * 

* INDlCAfE * 

* EVENT * 

* HAPPENED * 

* * 
***************** 



*4t*4i*J5********** 

* * 

* FORMAT * 

* AND PRINT * 

* PAGE ENQOEOE ♦ 

* EVENT * 
4i If*** ************ 



***♦ 

* ♦ 

* * 
**** 
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Chart GK. DATEVENT, PGMEVENT, and PEREVENT 



***** 

*GG * 
♦ J1* 

* * 



***** 
*GG ♦ 
* G1* 



***** 
*GG * 
* D3* 

* * 



DATEVENT .*. 



itc]|(***C1 ********** 

* * 

* COKPiHI ♦ 

* E?ENT * 

* IITH * 

* LI8ITS ♦ 

i|(4c«]«<*i(<4c**##«* **** 



IT EST 
OOTSIDB 
LIMITS 



X 

***** 
*6G * 
* B3* 



* * 
SET EVENT 
HAPPENED 

SWITCH 

* ON * 
**«*«**« ill** 



♦*#**p 2 **♦***♦*** 
♦FASTKEC3 GN* 

♦_♦_*_♦-.♦_*_♦-.*-♦ 

.X* EOILD * 

* ENTBY IN * 

* BDPPEK * 



**^ft************* 



.*-*-*_*_)|t.' 



*4i)|t*****4<*****4<** 



*♦♦**♦* 

* * 

* COMPABE * 

* EVENT * 

* WITH * 

* LIMITS * 
4t*4i**4<4<*4<*****)|c** 



.* EVENT 
OUTSIDE 
*. LIMITS 



INDICATE * 

EVENT * 

HAPPENED * 

* 
******** Id***** 



*****C5****** 

♦PRINTBOF 

*_*-.*_*-.*_*-*. 

* PRINT 

* SD AREA 

* B OFF El 
************* 



**** 
GL* 

*-* 



X* RECORD PER * 

♦ EVENT IN SD * 

* AREA BOPFEP * 

***************** 



PRTEV 


X 




*****P3 ********** 


* 




* 


* 


FORMAT 


* 


* 


EVENT 


* 



***************** 



ISIT*» X 

*****G3 ********** 
♦PRINTIT GM* 

♦_*-*«*-*-.*_*_*_* 

* PRINT * 

* EVENT * 

* * 
***************** 



*****D5 ********** 

* * 

* INDICATE * 

* EVENT * 

* HAPPENED * 

* * 
***************** 



*****]^ 5**** ****** 

* * 

* SAVE OOTCL, * 

* FORCE SOPER- ♦ 

* VISOR OOTPOT * 

* CLASS * 
***************** 



*****pi^ ********** 

* * 

* FORf AT * 

* AND DOHP ♦ 

* SUPERVISOR * 

* ♦ 
***************** 



*****(:; 5********** 



\i 



RESTORE * 

OTJTOOT * 

CLASS * 

* 

************* 



*GG * 

* B3* 



***** 
*GG * 
♦ B3* 



* SNITCH OFF 
* PER BIT 

*IN INTERROPT 
♦ CODE * 

*********** 



X 

***** 

*GG * 
* HI* 
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Chart GL, 



PRINTBUF 



* * 

♦ PRIHTBOI ♦ 
4> * 



• B2 
If BHTBY IS ZERO 
BOFPER BUS NOT 
BEBR HRIPPID. 
IF MOH-ZBRO. 
BBXT EIWRT IS 
OLDEST. 



*4i««****4>4>4<*4i4i**« 



.♦ CORBEHT *. YIS 
.BUFFER EKTRT .*.... 

*. ZERO .♦ 



4i«««*C2***>i>*****' 



.X* 



POIHT 
TO BOFPEB 

• BEGIN 

♦ fSEE * B21 



* START AT * 

* CORRBNT ♦ 

* BOFFER ♦ 
BNTRI 



*♦♦* X 




HXTBLEB .*. 


♦*♦♦ 


.* »HI ♦.BO 
*. B?ENT ,*. .. 
♦.RECORDED .♦ 

♦ . .♦ 


**** 



♦ B3 * 



B3 ♦. 

.♦ANOTHBH*. 
.♦ PER BfBIIT • 
», COHCORRBIIT 



♦ POINT TO ♦ 

♦ NEXT BUFFER ♦ 

♦ B8TRI ♦ 

♦ * 
*«***4i*«4i**«4i**«4i 



END OF 
BOFFER 
REACHED 



♦ 4t 

♦ POINT ♦ 

♦ TO BOFFBl ♦ 

♦ BEGIN ♦ 

4> * 



♦ BO?E ZERO 

♦ TO OUTPOT 

♦ AREA 

* 



♦ PRINT * 

ZERO 
♦ BfENT ♦ 



♦ R3 * 

* ♦ 





* 






**** 


RC 




* 


YBS 


* 




ETBNT 








!♦ 


E5 



G1 *. 
* 

TE 
EfBNT 



♦ BOTE TE ♦ 
1* HNIHONIC ♦ 

♦ TO OOTPOT ♦ 

♦ AREA ♦ 



CLHERK .♦.^ 

.♦ THIS '♦. 

♦. PRINTED .♦ 

♦. . ♦ 


♦ ♦ 
,t* B1 ♦ 

« * 
♦ »♦♦ 


«. . ♦ 




»*»♦ r "^ 




* * 




♦ 63 ♦.X. 




*♦*♦ 




CLOSPRT X 

♦ * 




♦ CLOSE ♦ 

♦ OOTPOT ♦ 

♦ FILE ♦ 





♦ HOf E BC ♦ 

♦ HBBKONIC ♦ 

♦ TO OOTPOT ♦ 

♦ AREA ♦ 



* <|t 

* EDIT ♦ 

* BC ♦ 

* CLASS ♦ 

* * 



* * 

♦ J1 ♦ 



**** 

* 1 

♦ HI 



*.X 



*♦*♦ 
INSRTE7 X 

♦ INSERT PER ♦ 

♦ EVENT ♦ 

♦ HNEHONIC ♦ 

♦ IN OOTPOT ♦ 

♦ ARIA ♦ 



♦ ♦♦* 

IkDDREDIT 

* ♦ 

* FORMAT ♦ 

* AND PRINT ♦ 

* ETENT ♦ 

* * 



«*>|i«**4i*********4> 



♦ * 

♦ HETOBN ♦ 
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Chart GM. PRINTIT 



* ♦ 

* PBINTIT * 

* * 



* B3 * 



:«<«:•<*«%»<*********« 



.* ODTCL = *. YIS 
*. FASTREC OE .*. .. 

♦. PSH .♦ 



***iliit:Q1*^t ******* 

* * 

* FOBHAT * 

* AND PHINT * 

* GEN. PORPOSE * 

* REGISTERS * 

*i!lHt,Hiilt:H!^^^tit( ******* 



* TRANSLATE * 
X* AND DOMP *. 

*THE SUPERVISOR * 

* * 



* TRANSLATE * 
.X* AND DUMP ALL *, 

* OF REAL * 

* STORAGE * 



tm***f\ ********** 

* FORMAT * 

* AND PRINT ♦ 

* CONTROL BEGS * 

* AND LOi * 

* REAL STORAGE * 
Ht*ilf***4t****4***** 



**** 
HIGHEND X 

i^^t**'iy3********** 

* * 

* RELOAD * 

* ADDRESS * 

* OF PARAMETER * 

* LIST * 

itt * « 3|c* ad 4i «* !tt1c * * *4c * * 



**♦♦ 

FORGET X 

*H::/tt1f^TS'i********** 

* * 

* CLOSE * 

* OOTPOT ♦ 

* FILE * 

* * 
t **************** 



* * 

* RETURN ♦ 

* * 



\ 



.*....X* D3 ♦ 



CMRG 

^i,if.^^l^2***^****** 

* DnHP * 

* CURRENT * 
...X* AND *. 

* SYSTEM * 

* COMREG * 
t**************** 



.X* D3 * 
X * * 

**** 



* DUMP SEGMENT, * 
.X* PAGE, AND *, 

* PAGE-FRAME * 

* TABLES * 

« * itc « * 4i :» :tc « 3|t « * He * 4c :tc :|i 



♦ B3 ♦ 

* * 
**** 
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Chart GN. Fi^STRECl, FASTREC2, and FASTREC3 



* F&STREC1 ♦ 

♦ ♦ 

# :|c :(i 4< !|t :|t ]«< III * 41 :te # He ))■ 4i 



* MOVE PEB ♦ 

♦ E7EKT CODE TO ♦ 

♦ SD ABEi * 

* BUFFER * 

*:tf*iitHt1fi^Hiiliitiif ****** 



* STOBE TOD * 

* AND OLD ISS * 

* IS EUFFIB * 



!|t*:«<*4<D1*4<* ******* 

* STOEE COMTBOL * 

♦ BEG1STERSJ9-11)* 
" AND GENEliL * 



* ♦ 

* PaSTREC2 * 



* MOVE MC * 

* MHEMOHIC * 

* TO SD ABE* * 

* BOFFBR * 
*^i*****it,**ili****** 



* * 

* FASTREC3 * 

* * 



* MOVE TE * 

* MHEKONIC * 

* TO SD ABBA * 

* BOPFEB * 
m**************** 



* * 

* EKDSD * 

* ♦ 
*****Hi****i^^t*m* 



ENDSD X 

*m***B'^********** 

♦ IHDICATE TO * 

♦ <^BATTH3 ♦ 

♦ THAT CALL ♦ 

♦ IS "BOM * 

♦ ENDSD * 

n,*^L4fiHf*^t********* 



i$*^cHi*£^*m******** 
*$tBATTN3 GO* 

* -*-.♦-*_*_♦-.*-*-* 

* FETCH ♦ 

* TBANSIENT ♦ 



#4l*4(9t[it!*** 



*** 



**ili*D^*icni****** 

* * 

* EOJ * 

* ♦ 



* ♦ 

* POINT TO * 

* NEXT ♦ 

* BUFFER * 

* ENTBY * 



^i^**1fQ^:t:********* 

* ♦ 

* POINT * 

* TO FIBSl * 

* BOFFEl ♦ 

* ENTBI * 



OUTPUT *. NO 
MODE .*.. 

.AUTOMATIC* 



*****J H*ilf^c**)t**** 

♦PBIHTBUF GI* 

♦_*_♦-♦_♦_*-♦_♦_♦ 

♦ PRI NT * 

♦ SD AREA * 

♦ BUFFEB * 



*4c«4iKl ********* 

* ♦ 

* BETUEN * 

* * 
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Chart GP. $$BATTN3 



4>4>«*At ********* 
* $$BATTN3 * 



* 4> 

* B3 ♦ 

* ♦ 



*«*«4iBl********** 

* * 

* ISSUE HC * 

* TO PRIHT * 

* CORB-HRAP * 

* HOPPER * 



*.^ BHDSD ^.* 

**. .*' r 


* NO 


4>4>D1******* 
♦ SET SMTCH * 

*(SEE * D2) * 


'.X .' 



* * 
♦STORE ADDRBSSBS* 
*0P ACTIfi PIBS * 

* Ifl CTLIST ♦ 

* * 



* * 

* GET PS« * 

* ADDRESSES * 

* PROM STSTE8 ♦ 

* SA?E AREA ♦ 



***4i4>03*««**4>*«*4r 



***4i4c«**4>«*«4t*4t«4c 





: o"lHii: •: 




**#* * 




4> * . 




* C5 *.X. 

♦ * . 




•**» X 


RBTAR 

«*4r*«!Ci(********** 
* * 


PORGETIT .*.^ 

.* '♦. 


: «l|!i?|.'s :,.. 


*. .* 



• ***4t**f4i*«*****4i 



4i*4i4i0(|*4<**4i4t**4i 

* RETORM ♦ 

* TO AR * 

* * 

4[**4>*«>*:**4<**4>*ik 



****D5 ********* 

* SBTORS * 

* TO CALLER ♦ 

« * 



♦. 


***« 


IS *. NO 


* * 


SDAID .*. .. 


.X* C5 


ACTIVE .* 


* i 



* GET PSl * 

* ADDRESS * 

* PROM SAVE * 

* AREA OP * 

* LTA * 



>» * * * 

* * SEIZE * * 

* * SYSTEM * * 

* ♦ SVC 22 * * 

* » ♦ ♦ 



* * 

* STORE * 

* IN PER ♦ 

* LIST * 

* * 



* PORCE PGM * 

* CHECK TO * 
*GET SOPERVISOH * 

* STATE * 



*4'**4t(;3*« ******** 

* * 

* GET PSI * 

* ADDRESSES * 

* PROM REAL * 

* SAVE AREAS ♦ 



♦ 

* RESTORE 

* CONTROL 

* REGISTERS 

* ( 8 - It ) 



*«***{] 3*********' 
* 

* STORE 

* ADDRESSES 

* IH PER 

* LIST 



* ♦ 

* RESTORE * 

* PROGRAM NPS8 * 
*AND SNITCH OFF * 

* PER BIT * 
*«4>**4i4i**4'4>*4>*)l<** 



4i*j3***4>*)|i4< 

« * 

SNITCH 

OFF 

PER 

* BITS * 



* * 

* B3 * 

♦ *** 
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DUMFGEN (DUMP GENERATOR) 



DUMPGEN generates a translating stand-alone 
dump program (called REALDUMP) , which can 
be tailored to individual system 
requirements. Using the DUMPGEN CPTN 
control statements you can generate a 
stand-alone dump, which can dump the 
contents of real storage (unformatted cr 
formatted with DOS-VS supervisor tables) , 
as well as the formatted contents cf the 
boundary box and the page peel. 

EXECUTING DUMPGEN 

A self-relocating copy of DUMPGEN is 

provided in the relocatable library of the 

IBM-supplied system, and must be cataloged 

to the core image library before execution. 

It can be executed in any partition by the 

command: 

// EXEC DUMPGEN 



The entry point to DUMPGEN is BEGIN. The 
control statements (ASSGN and OPTN) are 
read frcir SYSIPT. 



f DUMPGEN j 



DUMPGEN reads in and processes the control 
statements, and generates a translating 
stand-alone dump. The type of dump gener- 
ated depends on the options specified (see 
DUMPGEN Control Statements below). After 
all control cards have been processed and 
any errors have been corrected, DUMPGEN 
outputs to SYSPCH (tape or card punch) the 
number of dumps specified by the DECKS 
option. 



d^D 



Chart 07. DUMPGEN (Dump Generator Program) 



DUMPGEN Control Statements 



ASSGN: The ASSGN control statement defines 
the output device for the stand-alone dump 
records. The format cf the ASSGN statem.ent 
is: 



ASSGN SYSLST^X'cuu' 

SYSLST is the only possible logical unit 
assignment. 

X*cuu' must define the address of the 
SYSLST printer. If the ASSGN statement is 
omitted, X'OOE* is assumed. 

OPTN; The OPTN control statement is used 
tc specify 

• the type of printer-start control 
(manual or automatic) , 

• the number of card decks to be punched, 

• the format of the dum.p, 

• the type of tape output, 

• a printout of the boundary box and page 
pool. 

The format of the OPTN statement is: 

CPTN operand 

Figure 48 lists the operands fcr the OPTN 
statement. If any or all of the OPTN 
statements are omitted, the default 
operands, ^hich are underlined, apply. 
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INTR=YES 



INTR=NO 



Produces a dump prcgrair that, v^hen leaded, enters the WAIT state. 
Either press the interrupt button to print the output on X'OOE' or first 
press the STCP button and then the START button of the printer to be 
used as output. 

Produces a dump program that prints the output on the SYSLST printer 
defined with the ASSGN stateirert or, if no ASSGN stateirent is specified, 
on X'OOE' . 



DECKS=nnnnnnnn 



DECKS=1 



Specifies the number of REALDUKP card decks to be punched en SYSPCH. 
to 99999999 may be specified. A blank card separates each deck 
produced. 



h 



FORMAT=YES 



FORMAT=NO 



Produces a formatting dump that (if the EG communications region can be 
found) formats and displays the EOS/VS supervisor tables. 

A Qon-formatting dump is generated. 



TAPEIPL=YES 



TAPEIPL=NfO 



If SYSPCH is assigned to a tape unit, the records of the stand-alone 
dump program are written on tape; the dump program can be IPLed directly 
from the tape. 

If SYSPCH is assigned to a tape, the stard-alone dump program is written 
on tape preceded by an ASA character. 



H 



PPOOL=YES 



PPOOL=NO 



The formatted contents of the boundary box and the page pool are printed 
(in sequence of ascending virtual addresses) . 



I No further information is printed. 

.X 



Figure 48. OPTN Statement Operands 



The control statements may be specified in 
any order and number; however, the 
following rules apply: 

1. The last statement processed overrides 
any previous statements \vith the same 
operation and operand. For example, if 
DECKS=2 is followed by DECKS=5, five 
card decks are punched. 



CUMPGEN MESSAGES 



The EUMPGEN-to-operatcr error message 
routines make it possible to: 

• Cancel the job if SYSLOG is net a 

console printer keyboard cr a display 
operator console 



2. Decimal operands may contain leading 
zeros. 

3. The operation code must be preceded by 
one or more blanks. 



• Reissue the message if cperatcr response 
is ALTERNATE CANCEL 

• Process an operator response of END as 
IGNORE 



Only one operation and only one operand 
per control statement is allowed. 



Cancel the job if operator response is 
CANCEL 



5. One or more blanks must follow the 
operand, if comments are desired. 

6. The parameters (YES, NO, and nnnnnnnn) 
must follow the equal sign without 
intervening blanks. 

7. Column 71 must be left blank. 



• Ignore the control card in question when 
operator response is IGNORE. 

If ncne of the preceding operator responses 
is issued. DUMPGEN assum.es a correction has 
been made and processes it. See Appendix A 
for a cross-reference list of message 
numbers and flowcharts. 



140 DOS/VS Serviceability Aids 






REALDUMP (STAND-ALONE DUMP) 



REALDUMP is the translating stand-alone 
dump generated by DUMPGEN. REALDUMP may be 
either formatting or non-f orirattingr 
depending on the FORMAT operand specified 
in the OPTN statement. 



procedure) , destroying the contents of 
bytes p-23 (the IPL card) and the 210 bytes 
cccupied by the duirp program. These bytes 
are located in the prcgrair check area of 
the supervisor. The address of this area 
is contained in the last four bytes of the 
Program Nev^ PSW. 



If FORMAT=NO was specified, the output 
from REALDUMP is a printout of: 

• The general registers 

• Formatted low real storage 

• Real storage 

• Page status information 

• The control registers. 

If FORMAT=YES was specified (and the BG 
communications region can be located) , the 
DOS/VS supervisor tables are formatted and 
printed, following the dump cf real 
storage. 

For an example of the formatted REALDUMP 
output, refer to DOS/VS_Seryiceability__Aids 
a nd_Debu^g;i ng_P rocedur es , GC33-5380, 
Appendix G. 



EXECUTING REALDUMP 

The stand-alone dump is loaded directly 
into the system (using the ncrrral IPL 



If information from any of these areas 
is needed, it must be manually displayed on 
the console, using the DM (display memory) 
command, before loading the dump program. 



REALDUMP OUTPUT 



Each line cf the output listing contains a 
maximum of eight fullwords. If the 
remaining portion of any line or group of 
lines is identical to the first word to be 
printed, the first wcrd and the word "SAME' 
are printed. Printing is then suspended 
until a wcrd with different characters is 
encountered. 

If a line is identical to the line 
previously printed, the wcrd SAME is 
printed and printing is suspended until a 
line with different contents is found. 

The first and last line cf every 2K 
block are printed, regardless of their 
contents. 



DUMPGEN mi 



chart 08. Logic Flow of the REALDUMP Prcgrair 



f REALDUMP J 



Dumps the following: 

- The general registers - 15. 

- Formatted low real storage 
(PSWs, CAW, CSW, and TIMER). 

- The last 2K block of real 
storage (without translation). 



The translation routine is loaded 
into the last 2K block of real 
storage. 



Real storage in numbered 2K 
blocks Iwith translation) is 
printed. 




NO 



Page status information for each 
2K block of real storage is prin- 
ted: 

- Virtual address 

- Real address 

- Block number 

- Indication whether or not page 
was changed 



Print Control Registers 




NO 



Print the formatted contents of 
the boundary box and the con- 
tents of real storage In 
sequence of ascending virtual 
addresses. 




Locate, format, and print the 
following DOS/VS supervisor 
tables: 

- Background and foreground 
communications region 

- Program Information Block 
(PIB) 

- Partition save area 

- Logical Unit Block table 
(LUB) 

- Physical Unit Block table 
(PUB) 

- PUB ownership-extension 
table 

- Error recovery block 

- Channel queue table 

- Floating point registers 
(if applicable) 

- Copied and translated CCB 
PjXifSJF extension tables 

- Copied and translated channel 
program 

- I DAL block queue 
• Fixed page frames 

- Boundary box 

- Segment and page tables 

- Page frame table and exten- 
sion 

- Selection pool 



( EOJ WAIT j 



( 
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Chart EA. DUMPGEN (Part 1 of 5) 



* OOiPGEH * 

♦ • 



* IRITI&LIZB 

* B»SE 

* BEGS 

* 



* * 

* B3 ♦ 

* * 



i«*4i**4i*4i*4>**4i*«i 



* « # • 

♦ * OPEH ♦ * 

♦ * STSiir ♦ * 

* * ABD ♦ * 

• * STSPCB ♦ * 



* * 

* POIHf TO ♦ 

* FIRST COL OH II * 

* OP RB»DIN * 

* AREA ♦ 



♦ SATE ADDRESS * 

♦ OP BEADIM ♦ 

♦ ABBA * 

♦ ♦ 



« * 
♦ B3 •.X 
BEPERENCIS***** * ♦ 
TO HA13: * * ♦♦** 
HBD5, HBFI * ♦* HBAD1 
HBG|, HCDI * * B3 

HCD3, HCD5 • .♦ 

HCGI, BC63 . .* E' 
HCG5', HDDS :...... X*. 

HDH3, HED1 ♦. 

HBG1 ♦, 



SCAII2 SCARS FOR 
THE FIRST tORD 
OH THE CARD. 
AND THEM LOOKS 
FOR THE DELIHITEH 
FOLLOWING THE CARD 



♦ SCAN FOR 

♦ OPERATION 

♦ *B* 

* 



OPERATION NAS 
FOOND BOT THERE 
IS NO OPERAND 



BLANK 


* 


TES 


CAI»D 


« 


*. . .. 


.* 






*. .♦ 




X 


♦ NO 




♦ ♦♦* 

* * 

♦ B3* 

4> * 
*♦♦♦ 


X 






.*. 






ns ♦, 






* 




*m 


END OF 


* 


YES 


CARD 




*.. .. 


REACHED 


* 




.* 






♦ . .♦ 




X 


* NO 




*HD * 
* B1* 



* * 
SET 'NOLCG* 

SNITCH 
IN SNA 

* * 



***** 
*HD * 
* Si* 



*4i*F3*«****«***** 



♦ 62 
•INf ALIO 
CONTROL 
CARD* 



* 


READ 
CONTROL 




* 


CARD 


* 




**** 








♦HB « 








* F1 


♦.X 






* * 








**** 








READL06 


X 




*4>«*«Q3«*4t4>**«* 


** 


* 






* INITIALIZE 




* 


FOR nsG 




* 


«C 


♦2A^. 





NEITHER ASSGN 
NOR OPTION CARD 



.» 


ASSIGN 


* 


lES 


*. 


CARD 




...... 


*. 


*. .♦ 


* 


• 




», ,♦ 




X 




* NO 




***** 
♦HB * 
♦ B3» 

* * 

4c 




X ASSIGNER 




«*. 








P5 ♦. 








♦ ♦ 




♦Fl» 


.* 


OPTION 


* 


NO 


*. 


CARD 




.*. . .. 


* 


'*. .* 


* 






*, .* 




X 




* fES 




***** 
*HD ♦ 










* D5* 










* ♦ 










* 










ERR 


SCAN1 


X 








» 






* 


* 


SCAN 




* 


* 


FOR 




* 


* 


OPERAND 




♦ 



m**m************* 



* J2 
•INVALID 
OPERATION • 



♦. 


* FIRST 

*. .♦ 


* 
» 


. NO 




*. .* 

♦ TES 






X 

***** 
*HD ♦ 

* D5* 

♦ ♦ 

ERR 


* * 




* INITIALIZE * 

* FOR HSG ♦ 

* *C«I3A * 

* (SEE * J2) * 
*itt,lf 4 ******* ****** 






i 

**** 










* * 










* B5 ♦ 

♦ ♦ 










♦*♦♦ 









END OF 


* 


TES 


CARD 




*. . .. 


REACHED 


* 




.* 






*. .* 




X 


♦ NO 




***** 

* * 

* 






ERRS 








JS *. 






* 






OPfN 




NO 


DECKS = 


,* 


♦.. .. 


.* 






*. .* 




X 


* TES 




*♦*♦♦ 

♦ HB * 

* B5* 


X 




* * 


***** 




* 


*HB * 


INTEROPT 


* B1* 






* * 
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***** 

♦H& * 
* J5* 



***** 
*HA * 

* E5* 



.♦ = * 
♦. FOLLOWED BY 
♦. BLANK .* 
*. .* 


YIS 
*. .. . 










♦ , , * 
* NO 
**♦* 

* * 

* CI *.x. 

* * 




***** 
'♦HD ♦ 

♦ 










**** X 
ADDZERO .*. 

CI ♦. 
.* * 


EHR5A 


SCA N4 

* * 


.* LEADING 
*. ZIBO 


* 


YIS 

♦ . . . < . . 


* 
.X* 


SCAN 
NOK- 


POR 
ZERO 


* 
* 



***************** 



***** 




*HA * 




* J5* 




* * 




* 




X 




INTRROPT .♦. 




B5 *. 




.♦ * 




.* INTR 


*. NO 


*. SPT?CIPIED 


.*.... 


* . 




*. . * 




*. .* 


X 


* YES 


***** 




*HC ♦ 




* Bt* 




* * 




* 




FORMAT 


CHKYES .*. 





***************** 



. * END OF 
CARD 
*. REACHED 



**** 

♦ ♦ 

* CI * 



*****F1 ********** 

* * 
♦CONVERT NDBBER * 
*DECKS TO BINARY* 

* AND SAVE * 



* DEVICE 

ASSIGNMENT 
*, VALID . 



*****p 3**** ****** 

* CONVERT * 

* ASSIGNMENT * 

* TO DECIMAL * 

* AND STORE * 

* IN DOMP PDB * 
***************** 



D3 *. 




*D4 


**j)5******* 


♦ *, 




INSTRUCTION 


*TNTTIALIZE ♦ 


SYSLST 


*. NO 


AT INPOT IS 


INTERROPT CODE* 


SPECIFIED 


.*. .X 


CHANGED TO A LPSH 


* IN OBJECT 




♦ 




♦ DECK * 


*. .*" 






* (SEE *D4) * 


*. . ♦ 






*^*******^* 


* YES 






X 

***** 


X 






*HA * 


.*. 






* E3* 



*G4 
INSTROCTIOK 
AT INTBDPT 
IS A NOP 



F5 *. 

.* *. 

•NO' 

SPECIFIED 



NOAOTOH X 

**Q5******* 

♦ INITIALIZE * 

* MANOAL CODE 
* IN OBJECT 

* DECK 

* (SEE *G«») * 
*4i********* 



***** 
*HD ♦ 
♦ C5* 
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♦*♦** 

*HB * 
* B5* 



♦ ♦** 

* ♦ 

♦ B3 * 



* * 

* B5 ♦ 

* * 



,* *. *♦♦* 

POBHAT *. NO * * 
SPECIFIED .*. ...X* B3 ♦ 



.♦ *. **** 

.* TAPE IPL ♦. NO ^* * 
♦. SPECIFIED .*.... i* B5 ♦ 



* TURN ON * 
♦FORMAT IND AND * 

* INITIALIZE * 
♦FORMAT CODE IN ♦ 

* IPL CARD * D2 ♦ 



***** 

*HA * 

* E3+ 



* D2 
•FD'IS MOVED 
TO DOMPCODE 



♦ * 

♦ TORN ON ♦ 

♦ TAPE IPL ♦ 

♦ INDICATOR ♦ 

♦ IN SWA ♦ 

#«:(c**:(t«*********4< 



***** 

♦ HA ♦ 

* E3 + 





♦ PPOOL ♦ 


NO 


* 


SPECIFIED 

*. .* 
♦ . .* 


♦ . . . . 




♦. .♦ 


X 




* YES 


***** 
♦ HD ♦ 

* 




X CHKSISV5 


CBKYES .♦. 






C5 *. 






.* *. 






* TES * 


NO 


* 


SPECIFIED 

'♦. .*' 


♦. . .. 




*. .* 


X 




* YES 


**** 

* * 








♦ F5* 








* * 








***♦ 




k 






(t«4c*D5********** 




TORN ON PPOL 


* 




INDICATOR 


♦ 




RND INITIALIZE 


* 




PPOOL CODE 


* 




IN IPL CRRD 


* 


:«c4<*4<:|i*]|r4t««4>****** 




i 






***** 






♦ HA ♦ 






* E3^ 





F3 ♦, 

.♦ ♦. 

NO 

SPECIFIED 



X 

***** 
*HD ♦ 
* C5^ 
* ♦ 
* 
ERR5A 



♦ TORN ♦ 

♦ FORMAT IND * 

♦ OFF AND INIT ♦ 

♦ TRANS CODE IN ♦ 

♦ IPL CARD ♦ G2 ♦ 

4r*:4i#:(c:|e:4<*******#3|,* 



***** 

♦HA ♦ 
* E3^ 



♦G2 
'TD« IS MOVED 
TO DOMP CODE 



♦ * 

♦ TORN OFF ♦ 

♦ TAPE IPL ♦ 

♦ INDICATOR ♦ 

♦ IN SNA ♦ 

:|c:«c*:|c#*:|(**]|(«4<4'**** 



***** 
♦HA ♦ 

♦ E3^ 
* * 





1.*** 






* 


* 




* 


"5 *... 




* 


* 




**** X 




CHKNO .♦. 






F5 ♦. 






. ♦ ♦ . 






* NO ♦ 


. NO 


♦ *. 


SPECIFIED 

♦. .♦ 
*. .* 


...... 




♦ . .♦ 


X 




♦ YES 


***** 

♦HD ♦ 








♦ C5^ 








* * 








* 








ERR5A 




X 




^t** ♦*(;t5****#***#* 




TORN OFF 


* 




PPOL IND. 


* 


*AND INITIALIZE 


* 




PPOOL CODE 


* 




IN IPL CARD 


* 






T 






#41*** 






♦ HA ♦ 






♦ B3^ 






* 
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***** 

*Hh » 
♦ 05* 



***** 

*ac * 

* B5* 



***** 
*H* * 
* H5* 



.* *. **** 
,* COLOSa *, HO * ♦ 
*, 71 BLAHK .*. ...X* D5 ♦ 



*, **** 

»SS(5B *. IIS * * 
C»RD .*, ...X* C5 * 



D1 ♦. 






• * *. 




**** 


. * OPTH * 


TES 


* * 


♦ . CJI8D 


*. •. 


X* B5 ♦ 


*. .♦ 




* * 


*. .♦ 




**** 


*. . * 






* HO 






X 






**** 






* * 






* D5 ♦ 






* * 






**** 







.* ♦. **** 
STS¥IS *. »0 * ♦ 
SPBCIPIED .♦ X* B5 * 



.* *. ***♦ 
YES *. HO * * 
SPBCIPIED .*.... X* G3 ♦ 



Id* 4i#4< 03 «;«*4< *4i 4i* ** 

* TORH OH ♦ 

* SYSTIS IMD. * 
♦AND IHITIALIZE * 

* SYSfIS CODE * 

* IN IPL CftBD ♦ 



***** 

*HA * 

* B3* 



•INVALID 
OPERAND* 



***** 
♦HA ♦ 
* E3* 



**** 

* * 

* G3 * 

* * 
**** 



ERRS X 

♦ INITIALIZE ♦ 

♦ POR ERROR ♦ 

♦ MESSAGE AND ♦ 

♦ OPDATE ♦ 

♦ LOG CCH ♦ 

4t4i*«4i«*4>*4t4i*4r4t*** 

*«** tBEPBRBNCIS 

♦ * .TO HDC5: 

♦ * *.X. HBB1, HBD1 

♦ * .HBE3, HBF5 
**** .flCPI, HCF3 

ERRSA XflCPS 

♦^^•^cs********** 

♦ * 

♦ GET ♦ 

♦ ADDRESS * 

♦ OP flSG ♦ 

♦ HcmiA ♦ C4 ♦ 

♦ ***4>************ 

♦♦♦♦ *. RBPBHENCIS 

♦ * .TO HDD5: 

♦ ♦ *.X, HAP5, BAH3 

♦ ♦ . HBD3 

**** 
ERR T 

*4>***D 5 ********** 

♦ * 

♦ DEl'ERHINB ♦ 

♦ LENGTH OP ♦ 

♦ CONTROL ♦ 

♦ CARD ♦ 



!)l«** 

♦HE ♦ 

♦ CI *.X 



^^C^fHij^tll***!******* 

* PRINT * 
ERROR 
♦ MESSAGE ♦ 
SVC 



*!||«*4IPS ********** 

* * 

* WAIT POR ♦ 

* I/O COWPLBTE ♦ 

* SVC 7 ♦ 

* * 

*4>4> ************** 



.♦ DID ♦, IBS 

BE ...... 

♦.RELOCATI .♦ 



X 

***** 
♦HE ♦ 

♦ ca^ 
* * 



^mmwwBl********** 



*^*n'**m4'********* 



G3 ♦. 

.♦ ♦. 

NO 

SPBCIPIED 



♦ TORN OPP 

♦ SrSVIS IND. 
♦AND INITIALIZE 

♦ SYSVIS CODE 

♦ IB IPL CARD 



**** 

* * 
. !♦ C5 ♦ 

* * 
**** 

E8R5A 



* CANCEL JOB ♦ 

* SVC 6 ♦ 

* * 

4t*4r************ 



***** 

♦ HE ♦ 

* B3^ 

* * 



X 

***** 
♦HA ♦ 
* E3* 



( 
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♦***♦ 

*HD * 
* G5* 





* OPEIATOB 


* 


lES 




4> 


.HESPONSE'XLT . 


*. .. . 






*. CANCEL* . 


* 








*. .♦ 










*. .♦ 




i 






* HO 




***** 

*HD * 

♦ E5* 

* * 

* 






X 




LOG (RE- 


ISSOE MESSAGE) 




D1* '*. 










.♦ ♦. 






* D2 




* END 


* 


US 


'SYSPCH NOT 


* 






*. .. . 


ASSIGNED TO 




'*. 


*' 




T PE * AND 




*. . * 






TAPE IPL 




♦ . .♦ 




X 


SPEClflED' 




* NO 




***** 
*HA * 





DB?ASSGN .♦. 






?EBMOD 




B3 *. 






*****^ti********** 




.* * 






* MOVE VERSION * 




.* TAPE IPL 


*, 


NO 


* AND HODIPICA- * 




*. SPECIFIED 


* 


*. . . 


Y* TTOH T.BVFr. Tfl * 




* 


X ' ■■* ■ TPL * 




*. .* 






* CARD * 




*. ,* 






***************** 




* YES 






* *** l 
♦HD * 

* 61 *.X. 

* * 


* C5 
FETCHES 


X 






**♦* 


DOHP 


.♦. 






WHICHONB I 


ROOTINE 


C3 *. 






*****Qt|********** 




.♦ * 






* * * ♦ 




.* SYSPCH 


*. 


IBS 


* * CLOSE * ♦ 




*. ASSIGNED 




*. . . 


* * SfSIN * * 




*. TO TAPE 


* 




* * (CLOSER) * * 




*. .* 






* * *'c5* ♦ 




*. .* 






***************** 





*****]>3******4*** 

* * 

* INITIALIZE * 

* FOR ERROR * 

* MESSAGE * 

* 4C46A * B2 * 
*********4c*****4(« 



***** 

♦HD * 

* D5* 



.* OPERATOR 

*. RESPONSl 

♦.•CANCEL" 



♦ SOPPIESS ♦ 
%* P0NCHIN6 ♦ 

♦ OP FPOOL ♦ 

♦ CODE ♦ P3 ♦ 

***************** 



NOMBER OF CARDS 
IN PPOOL CODE 
IS SET TO ZERO. 



OPERATOR 


* 


. 


»0 


RESPONSE 




,♦ 




•IGNORE' 


* 






♦ . . ♦ 








♦ , , * 






X 


♦ IIS 






***** 
♦HA ♦ 
♦ 63+ 

* * 
* 








RIADLOG 










G1 ♦. 








♦ ♦, 








MSG 


* 


. 


«0 


4CJ»6 




.♦ 




ISSOED 


♦ 






♦ . .♦ 








♦ . . ♦ 






X 


♦ YIS 






***** 
♦HA ♦ 
* E3 + 

* * 

* 

READ1 


J 








»*{{1 ********** 








* 




TORN OFF 




* 




TAPE IPL 




» 




INDICATOR 




* 





NDHBER OF CARDS 
IN FOSHATTING 
CODE IS SET TO 
ZERO, 



NDHBER OF CARDS 
IN SYS7IS CODE 
IS SET TO ZERO. 



♦ SOPPRESS ♦ 
X* PONCHING ♦ 

♦ OF FORMATTING ♦ 

♦ CODE ♦ G3 ♦ 

***************** 



♦ SOPPRESS ♦ 
X* PONCHING ♦ 

♦ OF STSTIS ♦ 
» CODE ♦ R3 ♦ 

***************** 



***************** 



♦ PDNCH 

SPECIFIED 

♦ NOMBER 

OF DECKS 
*************** 



*****jl| ********** 



***************** 



****K ()♦**♦♦♦♦♦* 

* EOJ ♦ 

* SVC 1l» ♦ 

* * 
*************** 
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* 

* 



* * 

* EERLDOHP * 

* * 



REftLDDHP X 

* SftVE EBGSr * 

* PSHS, CSW, * 

* CAH, AND * 

* INTEBBDPT * 

* CODES ♦ 



*****C1 ♦***♦♦***♦ 



CLEAB 

PENDING 

INTERHOPTS 



* OPTS *. NO 
INTH = YES .♦. .. 
♦, * D2 .* 



* ♦ 

* WAIT FOl * 

* 'INTEHROFT* * 

* OB * 

* 'START' * 

*:t:it,:t,iti^if ********** 



* D2 
YES - IP THE NOP 
INSTRUCTION AT 
•INTROPT' BAS 
CHANGED TO AN 
LPSH BY DaMPGEN 



* READY PRINTER * 

* AND BAKE * 

* TRANSLATE * 

* TABLE * 

* ADDRESSABLE ♦ 
******^i ********** 



***Q'{Hi*********:/tc* 

* READ * 

NEXT 

* OVERLAY * 

* SEE G2 

*llftt^t**********tL*i^ 



*1,**itt^-\ ■^*******il,!iC 

* * 

* UNPACK, ♦ 

* TRANSLATE ♦ 

* AND PRINT ♦ 

* T»0 REGISTERS * 

*^i*****^c******1Hiii^ 



.* ALL *. SO 

. REGISTERS .*.., 
*. PRINTED .♦ 



**** 

* * 

* B3 * 

* * 
**** 



* G2 

OPERATION BLOCKS 

G1-J1 RERESENT 

CODE OP TC TI0PRT61. 

THERE IS IN EFFECT 

NO DECISION 'ALL 

REGISTERS PRINTED'. 

THE DECISION IS OSED 

SIMPLY TO AVOID 

REPEATING THE SAME 

OPERATION BLOCKS FOR 

EIGHT SETS OF REGISTERS. 



**** 

* * 

* B3 * 



* BEAD * 
NEXT 

* OVERLAY * 

iii*itt************** 

**** 

* * 

* C3 *.X'. 

* * 
**** 

X 

* UNPACK 

* TRANSLATE 

* AND 

* PRINT OLD 

* PS« 

itt^*Ht:^:Hc*t******** 



**:l>fQ-3 ************ 



*********:it******* 



*H,Hi*:^:^2 ********** 

* MODIFY CCW * 

* TO INDICATE ♦ 

* NO CHAINING * 

* OR CHAINING * 
♦{SEE * E4 + G14 ♦ 
*i**************^c 



**4f**f2*i)i******** 

* * 

* UNPACK * 

* TRANSLATE * 

* AND PRINT * 

* NEW PSH * 

*7ti*************** 



BEAD 
* NEXT OVERLAY * 
(ONE CARD) 
* SEE * G£» * 

***************** 



*****[]|3********** 

* * 

* MODIFY CCW * 

* TO INDICATE ♦ 

* CHAINING ♦ 

* * 
***************** 



*****j 3 ********** 

* UNPACK, * 

* TRANSLATE * 

* AND PRINT * 

* INTERRUPT * 

* CODE * 
***************** 



***^ 3 ************ 

* READ * 
NEXT 
OVERLAY * 
(TWO CARDS) 

:tf**i*********'** 



DEPENDING ON THE 
LENGTH OP THE 
NEXT OVERLAY TO 
BE READ, THE CCW S 
ARE MODIFIED TO 
INDICATE CHAINING 
OR NO CHAINING 



* fH 
CODE IS MODIFIED 
SO THAT THE AREA 
PREVIOUSLY USED 
AS SAVE AREA CAN 
BE USED BOTH FOR 
OUTPUT AREA AND 
FOR ADDITIONAL 
CODE 



* ALL *. 
PSW'S AND 

TNT CODES 
PRINTED .' 



***** 1^5 ********** 



*****C 5 *****♦♦*** 

* UNPACK, * 

* Ti^ANSLATB * 

* AND PRINT * 

* CSW, CAW. * 

* AND TIMER ♦ 
***************** 



***]Q 5 ************ 



* G« 
FOR MACHINE- 
CHECK INTER- 
RUPT CODE, 
TWO CARDS 
ARE READ 



* READ 

* OVERLAY 
fONR CARD) 

***************!^ 



*****g 5 ********** 

* MODIFY * 

* CODE AND * 
*CCW TO INDICATE* 

* CHAINING * 

* fSRE * P4) * 
************'***** 



***P5*** ********* 

* READ * 

NEXT 
* OVERLAY * 

(TWO CARDS) 
***************** 



ADDRINT1 X 

*****r;5 ********** 

* DETERMINE * 

* ADDRESS AND * 

* BLOCK NUMBER * 

* 0^ LAST ♦ 

* PAG? * 
***************** 



*****T)(^ ********** 

* * 

* CONVERT * 

* BLOCK NUMBER * 

* TO PRINTABLE * 

* CHARACTERS * 
***************** 



PRINT 
BLOCK 
HEADING * 

************** 



♦ *** 

* * 

* A5 * 
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***** 

♦ HF ♦ 

* J5* 



♦ B3 * 

* * 
**** 



4<****51 ********** 



**4'C1*)^****'I<**'*': 

* READ 
NEXT 

OVERLAY * 
(ONE CARD) 

# * * * 4c 4: :|< « :|c « * « * :|c « 



♦****D1 **♦**♦#♦** 

* * 

* INITIALISE * 

* BEGISTEHS FOE ♦ 

* PRINTING LAST * 

* 2K BLOCK * 

4t:4i3|<4t 4: 34<^,«>i(c*4< ****** 



ilf:tf***E\ ********** 

* * 

* MODIFY * 

* CCW TO * 

* INDICATE * 

* CHAINING * 



* BEAD ♦ 

NEXT 
* OVERLAY ♦ 
(TWO CAIDS) 

:te:t<*«;4c:(; >!(********%* 



ELCCH1 X 

«3|<*«:|lg34(*** ****** 

♦ RELOCATE * 
*CCH FOR READING* 

♦ TRANSLATING ♦ 

♦ DUMP INTO LAST * 

♦ 2K BLOCK * 
4i*4i#4<************ 



* READ IN 
TRANSLATING 
♦ DO«P ♦ 

4c***«**4c** ******* 



* SAVE 




* 




* ADDRESS 




* 




* OF LAST 




* 




* PAGE 




* 




***4c******* ****** 




**** 








* * . 








* E3 *.X. 






* E«» 


* * 






IS ADDRESS OF 


♦ **♦ X 






NEXT PAGE EQUAL 
TO ADDRESS OF 


NEXTPAG1 .*. 






E3 *. 






LAST 2K BLOCK? 


. * ♦. 








.* LAST 


* 


. YES 


*. PAGE 




.* 




♦ (SEE * EJ*)^. 


* 






**, .** 






X 


* NO 






***** 

*HK * 

* B1* 

* * 

* 






ENDOWP 


TI0 1 X 








***F3************ 


* PRINT 




* 


BLOCK 








* HEADING 




* 





*******«3|(3(t «]Kl|l*)|[l|C 3|C 



* UNPACK * 
♦TRANSLATE, AND * 

* PRINT EIGHT * 

* WORDS ♦ 
**))[*******#*****# 



.* 2K *. NC 
PRINTED .♦... 
♦ {SEE * H2) .* 



****:((********** 



***J 14t4t«*4>)t>****** 

* READ * 
NEXT 
* OVERLAY * 
(TWO CARDS) 
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♦ ♦ 

♦ PR»T2K1 * 

♦ * 

♦ *** 



* **♦ 

ST0SER5 X 

♦♦B1******* 
♦ * 

* SOPPBESS ♦ 
* SAME - LINE 

* SWITCH * 
*fSEE * B2) * 



♦CONTBT HJ* 

♦-.*_#_♦-«_♦-.♦-♦-* 

* FOBHAT AND ♦ 

* PHI NT * 

* ONE LINI ♦ 

♦ ♦** 



**** 
REDOCEA X 

* * 

* DECREMENT ♦ 

* NUMBER CP * 

* LINES BY * 

* ONE ♦ 



* B2 
INSTRDCTION AT 
SAfiESl IS 
CHJNGID TO A NOP 



. * LAST ♦, 

LINE 

*. PfilNTEC .♦ 



* RETORN * 

* TO CALLER ♦ 

* * 



NEXT 

LINE= 
, CDHRENT 
*.LINE .* 



THE SWITCH IS 'ON* 
ONLY WHEN MORE THAN 
ONE LINE IS IDENTICAL 
TO A PRBVIOOS LINE, 
AND 'SAME* HAS ALREADY 



.♦ LAST *. YES. 




BEEN PRINTED. 


*. LINE ,*. 


.X. 






♦ , .♦ 








♦ . .* 








*. .* 


X 






* NO 


* * 

♦ B1 * 








* * 




♦ H3 




**** 




INSTRUCTION AT SAHESW 


X 






IS CH»NG1?n TO 1 BRANCH 


SAHESf .*. 






TO OPDATE 


HI *. 




:^*'^2******* 




.* IS *. 




♦SET SWITCH ♦ 




.♦SWITCH SET ♦. NO 


♦ TO SKIP ANY ♦ 




*.T0 SKIP LINES.*. 




'*'A\?lFlilU'-** 




♦ (SEE ♦ G3i.* 








^mhunw 




*♦. .♦' 






* YES 








♦♦♦♦ 








♦ ♦ , 








♦ J1 ♦.X. 








♦ ♦ , 








**♦♦ 








OPDATE X 




X 




*4i**«j1 **4c*«***«4c 




**«j24>«:>|t*«««4'4t«#!«' 




* * 








♦ GET ADDRESS ♦ 




♦ PRINT LINE ♦ 




* OP NEXT ♦ 




ADDRESS AND 




♦ LINE ♦ 




♦ WORD ♦ 




* * 




•SAME* 








:$*m************** 




X 




X 




**♦* 




**** 




♦ ♦ 




if * 




♦ D1 ♦ 




♦ J1 ♦ 




♦ * 




* ♦ 




**** 




♦ *♦* 
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chart HJ. REALDUMP CPart «♦ cf 18) 



* * 

* COMfRT ♦ 

* * 



* POBHIT AHD 

* TBAMSLITE 

* OHE 

* LIRE 



COttPHIGB 
COHPLOi I 

♦ TEST POS ♦ 
♦PRIHTHBLB CHi- ♦ 
♦BACTESS IMSEBf ♦ 

* • . • FOR Res * 
♦PRIRT&BLE CBAR * 
It******* **«««*««« 



* « 

* 13 • 



♦ SESBT 

* EQUAL LINE 

* SlITCH 

*4i****«4i4i«* 

♦♦*♦ 

* * 

* C3 * 

**** 
SATEIOHD 

* SIfB PIRST 

* «ORB OP 

* CORRERT 

* LIRE 



Ft ♦. 

.* ALL ♦ 
.♦ BOB OS IR 
LIRE 
♦. EQOAL 

*. .♦ 

♦ . .♦ 



♦ PRIHT 

ORE 
♦ LIRE ♦ 

It*************'*** 



4i*4i«E3**«**4i«)|t4i 

* RETOBH * 

* TO CALLER * 

* * 



♦ B3 * 

* ♦ 

♦♦♦* 



.♦ CORBBRT 
LIRE" 
♦ .PBEflOOS 
*.LIHB ,* 



♦ BEfOBR * 
.1* TO CALLEl ♦ 

* « 



* HOVE PIRST 

* ROBD AND 

* 'SAME' 10 

* PRIRTARIA 



* * 

♦ SET 

* SRITCHES 

* (SEE * J2J 



♦ J2 
SWITCHES ABE SET 
TO SOPPRESS 
PBIRTIRG Of WORD 
•SAflE« ARD OP ALL 
IDENTICAL LINES 
FOLLOWING 



4>**« 

* * 

♦ C3 * 
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Chart HK. REALDUMP (Part 5 cf 18) 



♦HG * 
♦ E3* 



* * 

* m * 



* PBINl 

'EKD OF 
* COBE DUMP" * 



* READ I» SEXT * 

OVEBLIY 

* (15 CARDS) * 



* GET ADDRESS * 

* OF SEGMENT ♦ 

* TABLE PBCH * 

* LOW REAL * 

* STORAGE ♦ 



PRNTBLK1 X 

* « i|t 3 4 * * % 1)1 « 4< 3)1 4i « ;•< :|c :4c 

PRINT 
* HEADING * 

FOR PAGESTATOS 

* INPORHATION * 

**** 
*HL * 

* H1 *.X. 

* * 
*♦♦♦ 

SEGTABB1 X 

♦INITIALIZE NEW * 

* PSW WITH * 

* ADDRESS OF ♦ 

* ERROR ROOTINE * 

* (SEE * C5) * 



.* AREA *. YFS 

*.ODTSIDE PEAL .*..., 

*. STORAGE .* 
*. *C5 .* 



A BRANCH ■^ILL 
BE TAKEN TO 
•0DTSTDB1 ' WHEN 
AN AREA OOTSXDB 
REAL STORAGE 
IS ADDiRESSBD. 



IBS .* ADDRESS *. 

♦ . . * 



.* ADDRESS 
♦ . IN SYSCOH= 
*. ADDR IH , 
♦ . CR1 .* 



* PRINT ERROR * 
.X MESSAGE 
♦ (SEE *F3) * 



.* ADDRESS *, YES 
♦. IN CR1 ...... 

*. VALID .♦ 



* PRINT * 

.X MESSAGE 

* (SEE ♦G3) * 



*F3 
'ADDRESS FOR 
SEGMENT TABLE 
IN CR1 AND 
SYS COM DO NOT 
MATCH' 



♦G3 
'CR 1 CONTENTS 
IS TAKEN TO 
LOCATE THE 
SEGMENT TABLE' 



* SEGMENT * 

TABLE ENTRY 
*. VALID .* 



♦ *** 
*HL * 

♦ G1 *.X. 



INVALID 

ADDRESS 

SPACE 



***** 

*HL * 

* r)3* 



* B3* 
« * 
* 
INVSTB1 



.* ADDRESS *. YIS 

*. IN SYSCOM .♦ 

♦. VALID .♦ 



PRINT 
MESSAGE 
(SEE *R3) * 

************** 



*H3 

•IJBSEGT CONTENTS 

IS TAKEN TO 

LOCATE THE SEGMENT 

TABLE' 



HAS *. YES. 

PAGE BEEN .*..X. 

. OSBD .* 



♦ PRINT 
MESSAGE 
* (SEE *J25 * 

***************** 



**fi1******* 
♦SET SWITCH ♦ 

♦ TO SOPPEESS 

EXICOTION 

♦ OF P POOL 

♦ CODE ♦ 
*********** 



*J2 
'SEGMENT TABLE 
CANNOT BE LOCATED' 



***** 
♦HL ♦ 
* F^* 



*****Y^H ********** 

♦ * 

♦ MAKE VIRTOAL ♦ 

♦ AND REAL ♦ 

♦ ADD'^ESS ♦ 

♦ PRINTABLE ♦ 
***************** 



♦ ♦♦♦♦ 

♦ HL ♦ 

♦ D3 + 
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Chart HL. REALDUMP (Part 6 of 18) 



♦♦♦♦♦ 

*HK * 
♦ K4* 



***** 
*HK ♦ 
* FU* 



***** 

*m * 

* Dt* 



*****22********** 

* * 

* MOVE * 
X* 'OMCHANGED* * 

* TO OOTPDT * 

* AREA * 
***********,lt***^,i^ 



♦M07E 'CHANGED' * 

* TO OUTPUT ♦ 

* AREA * 

* * 

ifiif**il,**1f:^**if^i**4if 



* PRINT 
MESSAGE 
* (SEE * B«y * 

************HHI,**Hi 



**Qli******* 

♦SET SWITCH * 

* TO SUPPRESS 
EXECOTIOH OF 

♦ PPOOL 

* CODE * 
*Hi******iti*iif 



'INfALID 
SEGMENT 

TABLE 
BNTRI' 



'REAL ADDRESS 

OOTSIDB 

STORAGE' 



* PRINT 

MESSAGE 
* (SEE * d} * 

***************** 



iH^QC^******* 

♦SET SilTCH * 

* TO SUPPRESS * 
* EXECUTION 

* OF PPOOL ♦ 
* CODE * 

*********** 



REFER ENCIS**** 

TO HLD3:* *^ ^ 

HKE«, HKK1* * *. X 



* HAKE * 

* BLOCK NUMBER * 

* PRINTABLE * 

* * 



♦**E1 ***♦♦♦***♦** 

* PRINT * 

PAGE 

TABLE * 

INTRI 
***iii******^i*iti*Hf 



**** 
NXTENTR1 

*****f'[****'^tf**:lf* 

* * 

* GIT NEXT ♦ 

* PAGE TABLE * 

* ENTRY ♦ 

* * 
*********i^*****if* 



.* HAS STORE 
STATUS 
♦ .EXETUTED . 



* PRINT 
CONTROL 
* REGISTERS * 

*:t:i)t*****ils***1f***iH 



***^n************ 

* PRINT * 

,X MESSAGE 

* (SEE * E5) * 

***************** 



**t**EH********** 

* * 

* STORE * 

* CONTROL * 

* REGISTERS * 

* * 
***************** 



* E5 
•STORE STATUS 
FUNCTION NOT 
EXECUTED. 
CR IN INITIAL 
STUTUS' 



.* 


PPOOL 


*. 


YES 




= YES 




*. . . . 


*. 




* 




* 


.* 








*. . * 




X 




* NO 




*HH * 
* B1* 

♦ * 








RDPPOOL 



ALL 

ENTRIES 

TAKEN 



***^'\*********^ 

* 

GET NEXT * 

SEGMENT * 

TABLE ♦ 

ENTRY * 

*************** 



* {10 ***** 

*HN * 
* B1* 

X * * 

***** * 

*HY * RDFORMAT 

* B5* 

* * 

* 

ENDIT 



***** 
*HK * 
* CH* 
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Chart HM, REALDUMP (Part 7 cf 18) 



***** 

♦HL ♦ 



* * 

* B3 * 

* * 

**** 



**** 

* * 

* B5 * 

* * 

**** 



* BEAD 

FPOOL 
* CODE * 



P POOL EX 1 

* fOBB&T * 

* AliD • 

* PRIIIT ♦ 

* BOORMRI ♦ 

* BOI ♦ 
m**************** 



«4i4t«4>Dl ********!ti* 



********1f******1,* 
**** 



.♦ SEGHEHl ♦ 
*. TABLE ENTRY 
♦ . TlrLID .♦ 



* ♦ 

* PI *.X. 

* * . 
*4>** X 



* DBTEBMIHJ * 

* BLOCK BOMBER * 

* AHD CONfBRT ♦ 

* TO PRIHTABLE * 

* CHARACTERS * 

**4i**«*4i4<:^4t4i*4>* ** 



*BU 
•THIS BLOCK WAS 
OfKHWRITTBH BY 
DOHP PROGRAH* 





», **** 


LAST 


*, YES ♦ * 


BLOCK 


.♦ t* B5 ♦ 



* PRIIIT 

»!ESSASB 
» (SEE * B<l) * 

*m*************** 



* cs *.x 



**** 
HXTBNT1 X 

4(**««C5 ****** *4i** 

* UPDATE ♦ 
« VIRTOAL ♦ 

♦ ADDRESS * 

♦ FOR SBXT * 

* PAGE * 



c * * 
...X* B5 ♦ 

* * 
**** 



♦PRHT2K1 HH ♦ 

♦_«-,♦-♦-♦-.*-♦-♦-♦ 

* PBINT * 

* OBB 2K * 

* BLOCK * 



**** 
♦ E3 •.X, 



***4> 
BXTBBT3 X 

* * 

* GET HEXT * 

* PAGE TABLE * 

* ENTRY ♦ 

* * 
**^^*m********^ti,* 



PI *. 
* *. **** 
IN?1LID *. YES ♦ ♦ 
ADDRESS ......X* C5 ♦ 

SPACE .* X * * 
*. .« , **** 
*. ,* 
* NO 



HAS *. NO 

PAGE BEEN .*... 
. aSED . * 



PORHAT 


* 


. YES 


= Y'?S 


,* 


.*.... 


. * 






♦ . .* 




X 


* NO 




***** 
*HN * 
* B1* 


X 




* * 


***** 




* 


*RT * 




RDPORHA 


* B5* 







PAGE *. NO 

ON ,*, ., 

PDS .* 



.* * 




**** 


♦ ALL 


♦ , NO 


♦ 


ENTRIES 


.♦.. . 


.X* PI 


*. PROCESSED 


* 


* 


*. . * 




*♦♦* 



*****G3*********« 

* GET * 

* NEXT * 

* SEGBENT * 

* TABLE * 

* ENTRY * 
***************** 



**** 

* * 

* El ♦ 

♦*** 



*****j| ********** 

* * 

* CALCOLATE * 

* REAL * 
« ADDRESS * 

* * 
***************** 



* B3 * 

♦ » 
**** 
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Chart HN, REALDUMP (Part 8 of 18) 



♦♦**♦ BBFEfiEHCiS 

♦ *t:o hnbi: 

♦ ♦*HLG3, HME5 



♦♦♦* 

* * 

* B3 ♦ 

* ♦ 



* * 

* B5 * 

* * 
♦♦** 



BDFOBHAT 
BDFOBHil X 

* BEAT * 

FOB«»tTI»G 
* CODE * 

if*ilt*tL*iift>*** ****** 



* SCA» ♦ 

* FOB ♦ 
*CO«flOMlClT10SS * 

* REGIOH * 

*^:l^^i^iilliitt********** 



4i:|t>tc**Q34i***4i4t4<** 



END 

OF 

SCAB 



MESSAGE 
* (SEE *C2) * 



**-*Q'[7tL*********** 



^il,*:t:1f***4t******** 



«*#4E>t<H 1 ******')'*'*'* 



*4i***3«is4<***iti4 4i4<#4* 



♦♦**J1 **♦*♦*♦** 

* EOJ * 

* iAIT * 

* ♦ 



*C2 
•CODLD BOT PIHD 
CORBIG BETtEEB 
100 AND AOO, 
FOBHATTIHG WILL 
HOT OCCOB« 



* SA7E * 
X* COHBEG * 

* RDDBESS * 

* * 



i^**-S2****** ****** 
BEAD 
* NEXT ♦ 
CfEBLAY 
* (51} ♦ 



itLilf:$il,i^f2********** 

* SAVE * 

* REGISTEBS * 

* FOE NEXT * 

* 07EHLAY * 

* * 



**itl3t,^iQ2********** 

* LOAD BASE * 

* REG'S AND * 

* MAKl ADCONS * 

* BELCCATABLE ♦ 

* * 



PIBSA7DP 

1f4:***^2********** 

* SET POINTEB * 

* TO TEST * 

* IF PAETITION * 

* IS ACTIfE * 

* * 
Hi*^iitim************ 



**^iififj2********** 

* GET ♦ 

* ADDBESS * 

* OF PIB * 

* TABLE * 

* 4e 
itc***1f***:t^******** 



* 


POINT TO 


* 


FIBST 


* 


PBOBLEM 


* 


PB06BAM PIB 


*ift4>***3|>4>#*«4<4<*4i 


♦ *♦* 


* 


♦ 


* 


C3 *.X. 


* 


* 


♦ ♦»* X 


SATLOOP .*. 




C3 ». 




,* *. 




* PABTITION * 


*. 


ACTIVE 



* * 

* GET ADDRESS * 

* OF ATTENTION ♦ 

* PIB AND * 

* SATE AREA ♦ 
«4t**«*4t** ******** 



SAVL00P1 T 

*m***B'y********** 
♦EDIT H?* 

♦-♦-.*-♦-»-♦-*_♦_* 

♦ POB»!AT * 

♦ SAVE * 

♦ APEA * 

jintitt************** 



♦ PRINT m* 

♦ PRINT ♦ 

♦ SAfE ♦ 

♦ AlEA ♦ 

i^L^^**i^nt**^til^i^■$m**m* 



**** 

* i 

* D5 ♦.X, 



END 

OF PIB 

TABLE 



X 

♦♦*♦* 
♦HQ ♦ 



♦ DDHP * 

♦ LTA ♦ 

♦ TEST ♦ 

♦ POINTER * 



« * 

♦HOVE PAHTITION * 

♦ IDENTIFIEE ♦ 
» TO ODTPBT ♦ 

♦ AREA ♦ 

if:**************** 



*****'SS********** 

♦ * 

♦ POINT TO ♦ 

♦ NEXT PROBLEM ♦ 

♦ PROGRAM ♦ 

♦ PIB * 

***************** 



*Ft» 
•SAVE AREA IS 
NOT IN REAL 
STORAGE*. 



*****QH********** 

* * 

* MOVE 'PROG ♦ 
X+ NOT ACTIVE* * 

* TO OOTPOT * 

* AREA ♦ 

***************** 



* HOVE ♦ 

* MESSAGE TO * 

♦ OOTPOT AREA ♦ 

♦ (SEE *FW ♦ 

************k**** 



* GET ADDRESS * 

♦ OP SAVE ♦ 

♦ AREA PROM ♦ 

* PAGE TABLE ♦ 
***************** 



NOTINRS 

*****^c^********** 

♦PRINT HV^ 

« -4( -* .*.*.4e. «_ «- « 

♦ PRINT ♦ 

♦ MESSAGE ♦ 

♦ ♦ 

***************** 



♦ D5 ♦ 

* * 
**** 



SAVE 


*. 


NO 


AREA IN 




♦. . . . 


STORAGE 


*' 




.♦ 






♦. .♦ 




X 


♦ YES 




♦♦♦* 
* 
♦ G5 


X 




* 


**** 




**** 


* * 






♦ B5 ♦ 






* * 






**** 
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* ♦ 

* B3 ♦ 

* * 



ALL * 


***♦ 


COMREG 


*. TIS * 


ENTBIBS 


.♦ X* B5 


PRINTBE 


.♦ * 



*HO?E POBEGBODND* 

* ENTRY TO ♦ 

* ODTPUT ♦ 

* ABBA * 



* POINT TC * 

* NEXT SET ♦ 

* OF COMRIG * 

* E8TRIES * 



♦♦♦♦♦D1 **♦♦♦**♦♦* 

* * 

* GET ♦ 

* BACKGROOND * 

* ENTRY ♦ 

* * 



*HQ * 

* * 

* 
FIRST 



♦ . 


**♦* 


IS 


*. YES ♦ * 


ENTRY 


.♦ X* F3 ♦ 


RINTABtE. 


* ♦ ♦ 


.♦ 


«>Kt* 


*. . ♦ 


NOEDIT 



^^(^i^lti-pl ********** 
♦EDIT H¥ * 

♦_♦«*_♦_♦_♦_♦_*_♦ 

* FORMAT * 

* BACKGROUND * 

* ENTRY * 

« 4c >|< t * 4< * 3|< 4< « 4 4 4< * i«< i» >•< 



444I44G1 *'•<=('****>*<'•'* 

* * 

* MOVE BG * 

* ENTRY TO ♦ 

* OOTPOT * 

* AREA * 



THAN ONI 
.PARTITION. 



♦ ♦** 
* F3 ♦ 



(SEE * F4) . 

NOEDIT X 

* * 

* MOVE BG * 

* ENTRY TO * 

* OOTPOT * 

* AREA ♦ 



.* HORE *. 
. THAN ONE 
♦.PARTITION.* 



* Ftt 
THE NOEDIT RODTINB 
MOVES THE COHREG ENTRIES 
TO THE OOTPOT AREA WHEN 
NO EDITING IS REQCIRED. 
I.E. ENTRIES APE 
ALREADY IN PRINTABLE 
FORMAT, 



* PRINT 
PTB 

* HEADING * 

44t**44<4>4>)t<4i*9tt)tc4ti»i4t3|< 



4** *4<CS **♦♦**♦♦♦♦ 

* ♦ 
♦G'?T ADDRESS OF * 

* COMRIG PIB * 

* TABLE, AND * 

* NAME LIST * 

t^***3tL4i*i^:ii*t**iii*'^ 



PTB LOOP 

4( * )|t *4<D 5 4 * * * 4>t( 44t *)t' 

* EDIT HV ♦ 

* FORMAT * 

* PTB * 

* ENTRY * 

:^!>^i:* *****'¥******** 



* PRINT ♦ 

* PTB * 

* ENTRY ♦ 



* POINT TO * 

* NEXT * 

* pTB * 

* ENTRY * 



.* ALL PIB *. 
*F,NTRTES PROCES- 

*. SED ,* 



HO * 
P5* 



***** 
*HQ * 
* P5* 



**♦* 

X 
4***4 j1 ******«*«* 

♦EDIT HV ♦ 

♦ -.♦_4>,4,*_*_4-.*-* 

♦ FORMAT ♦ 

♦ FOREGROUND * 

♦ ENTRY ♦ 
♦4*4***4***4***** 



44**4H3********^^ 
4 4 

*nOVE FOBEGiOOND* 

♦ ENTRY TO ♦ 

♦ OUTPUT ♦ 

♦ AREA ♦ 
4*4**4**4 443)1 444 44 



.♦ ANY MORE 
. PARTITIONS 
♦(SEE ♦ ja). 



X 
44**4 

♦ HO ♦ 

♦ B1* 



* 3'4 
WHEN THE LAST 
PARTITION IS 
REACHED, A DIRECT 
BRANCH IS TAKEN 
TO DONE AND THE 
ENTRY IS THEN 
MOVED TO THE QITPUT 
AREA. 



♦ *** 

* 4 

* B3 * 
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t HQ. REALDUMP (Part 10 of 18) 



* * 

♦ R5 * 



RRS ASYNCHBONODS 
PROCESSING 
SPECIFIED ftT 
STSTEH GENEEATION 



♦ ♦*♦* 

♦ HP * 

♦ G5* 



.♦ AP ♦. 

*, SPECIFIED . 

♦(SEE * A2) .* 


UC 

*. .. . 


* YES 


♦♦♦♦♦ 
*HR * 
* B1* 
♦ ♦ 


♦♦♦CI **♦**♦****♦* 


* PRINT 
HEADING 
* FOR SOBIASK 
PIBS 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦4 


♦ 
* 



♦♦♦♦♦ 
♦HN * 
* D5* 



L0AD075 X 

♦♦♦♦♦B 3 ♦♦♦♦♦♦♦♦♦♦ 

♦ SAVE OOTPUT ♦ 

♦ DEV. ADDR. + ♦ 

♦ RESTORE REG'S * 

♦ FOR NEXT * 

♦ OVERLAY * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦C3«*^^ **♦**♦♦♦ 



♦ GET ♦ 

♦ SDBTASR * 

♦ PIB * 

♦ ENTRY * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦£-!♦♦♦♦♦♦♦♦♦♦ 

♦EDIT H¥ ♦ 

♦_♦_♦_♦_♦_♦_♦_♦.♦ 

♦ FORMAT ♦ 

♦ SOBTASK PIB ♦ 

♦ ENTRY * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



-♦.♦-♦-♦-♦-♦ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



G1 ♦. 

♦ ALL ♦ 

SDBTASK 

PIBS 
PRINTED 



READ 

NEXT 

OVERLAY 



♦ LOAD BASE 

♦ REGS AND HAKE 

♦ ADCONS 

♦ RELOCATABLE 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦g3^^^^ ♦♦♦♦♦♦ 
♦LOCATE AND SAVE^ 

♦ THE ADDRESSES ♦ 
♦OF ALL COWHEGS ♦ 

♦ AND OP PIB ♦ 

♦ EXTENSION ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦F3++ ♦♦♦♦♦♦♦♦ 

♦ SET OP ♦ 

♦ HEADING ♦ 

♦ ACCORDING ♦ 

♦ TO NOMBIR ♦ 

♦ OR PARTITIONS ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ ♦♦♦♦I{3^^^^ ♦♦♦♦♦♦ 

♦EDIT HV+ 

♦_♦-♦_♦_♦_♦_♦_*_♦ 

♦ FORMAT BACK- * 

♦ GROUND COMREG ♦ 

♦ ADDRESS ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦J3^^^^^^^^^^ 

♦ ♦ 

♦ HOVE ♦ 

♦ ADDRESS ♦ 

♦ TO ODTPDT ♦ 

♦ AREA ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ MORE 

THAN ONE 
♦.PARTITION. 



♦EDIT HV+ 

♦_♦_♦_♦_♦-*_♦_♦_♦ 

♦ FORMAT FORE- ♦ 

♦ SROOND COMREG ♦ 

♦ ADDRESS ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦C5«^^«^^^^^^ 

♦ ♦ 

♦ MOVE ♦ 

♦ ADDRESS ♦ 

♦ TO ODTPOT ♦ 

♦ AREA ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



.♦ ANY ♦. 

MORI 

♦PARTITIONS. ♦ 



♦♦*♦ 
CSBJ02 X 

♦ ♦♦♦♦i;5^^^^^^^^^^ 

♦ ♦ 

♦ GET ADDRESS ♦ 

♦ OF MESSAGE ♦ 

♦ TABLE ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦ ♦♦♦ .* HEPERENCES 

♦ ♦^ .TO HQF5: 

♦ ♦^♦.X. HPC3, flPG3 

:♦♦♦* :«^«^ 

FIRST X 

♦♦♦♦♦P5^^^^^^^^^^ 

♦ ♦ 

♦ MOVE ♦ 

♦ MESSAGE ♦ 

♦ TO OOTPOT ♦ 

♦ ARIA ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ ♦♦♦♦^E^ ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ POINT TO ♦ 

♦ NEXT ♦ 

♦ MESSAGE ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ PRINT ♦ 

♦ COMREG ENTRY ♦ 

♦ WITH MESSAGE ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ ♦♦♦♦ 

♦ HP ♦ 

♦ B1^ 



♦ A5 ♦ 

♦ * 
♦ ♦♦♦ 
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chart HR, 



RE?^LDUMP (Part 11 of 18) 



BEFEREMCIS***** 
TO HHB1:* * 
HQBI, HQG1* ** 



* A2 
NOTE: THE CODE FROH LDBLOOP TO HJBL00P7 
FORMATS ANE PRINTS THE SYSTEM AND 
PHOGRIMMER LOBS FOR ALL PARTITIONS. 
THE MESSRGIS WITHIN THE CODE ARE 
CHANGED (DEPENDING ON THE NDHBEB OF 
PARTITIONS) BY THE CODE L0BL00P7 
TO LD10 



* ♦ 

* B5 * 



LOBCHCK X 

* GET ADDRESS * 

* OF LOB TABLE, * 

* POB TABLE, * 

* PICL, AND * 

* N ICL * 



LDBLOOP X 

Id 4t4i*4<C1 **'•'*=•"•>***=•< 
♦PRINT HV * 

♦_♦_♦_♦_*_*-♦-*-♦ 

* PRINT HEADING * 
*FOK SYSTEM LOBS* 

* (SEE * C2) * 



*♦** 
L0BLOOP1 X 

♦EDIT BY * 

*>♦-♦-.♦-.♦-.♦_♦_♦_♦ 

♦ FORMAT ♦ 

♦ SYSTEM ♦ 

♦ LOB ENTRY ♦ 



ic**^,^,'^ -yil,** f ****** 

♦ * 

♦ MOVE ♦ 

♦ ENTRY ♦ 

♦ TO ODTPDT ♦ 

♦ AREA ♦ 
iti******^f********itt 



.♦ IS 

LOB ON- 
♦. ASSIGNED 



FIRST TIME THROUGH: 
SBG SYSTEM LOBS' 
SECOND TIME THROOGH: 
»Fa SYSTEM LOBS', ETC. 



♦ ♦*♦ 

♦ ♦ 

♦ C3 ♦ 

♦ ♦ 
**** 



L0BL00P3 X 

**i^t*:t,Q2********** 

♦PRINT HV ♦ 

♦ PRINT ♦ 

♦ SYSTEM LOB ♦ 

♦ ENTRY ♦ 



♦ * 

♦ POINT TO ♦ 

♦ NEXT ♦ 

♦ SYSTEM LOB * 

♦ ENTRY * 
***************** 



.♦ ALL *, 


**** 


♦ SYSTEM ♦. NO 


* 


L OB S . ♦ . . . 


.X+ D1 


♦. PROCESSED. ♦ 


* 



**if**G -[********** 

♦ * 

♦ GET DEVICE * 

♦ ADDRESS ♦ 

♦ FROM ♦ 

♦ POB TABLE ♦ 

**:tf****7lf********* 



itt****^^********** 
♦EDIT HV ♦ 

m-*-*-* -*-*-*-*-* 

♦ FORMAT ♦ 

♦ DEVICE ♦ 

♦ ADDRESS ♦ 
***************** 



*****j •[********** 

♦ * 

♦ MOVE ♦ 

♦ ADDRESS * 

♦ TO ODTPtJT ♦ 

♦ AREA ♦ 
***************** 



♦ MOVE »0A« ♦ 
X+ TO OOTPOT ♦ 

♦ AREA ♦ 

♦ * 
***************** 



**** 

* * 

* C3 ♦ 

* * 
**** 



*****f:^********** 

♦PRINT HV ♦ 

* _♦ _♦-.* -♦ -.*-♦_♦_♦ 

* PRINT HEADING ♦ 
♦FOR PROGRAMMER ♦ 

* LOBS ♦ 
***************** 

**** 



**** 
LOBLOOPa 

*****Q2********** 

♦EDIT HV ♦ 

♦ _♦_♦_*-.*_♦-♦-♦-♦ 

♦ FORMAT ♦ 

♦ PROGRAMMER ♦ 

♦ LOB ENTRY ♦ 
***************** 



*****112 ********** 

♦ MOVE ♦ 

♦ ENTRY TO ♦ 

♦ OOTPOT ♦ 

♦ AREA ♦ 
***************** 



*****2S********** 

♦ * 

♦ GET DEVICE ♦ 

♦ ADDRESS ♦ 

♦ FROM ♦ 

♦ POB TABLE ♦ 
***************** 



*****Q^********** 

♦EDIT HV ♦ 

*^*^*^* -*-*-*-*•* 

♦ FORMAT ♦ 

♦ DEVICE ♦ 

♦ ADDRESS ♦ 
***************** 



*****j)^********** 

♦ * 

♦ HOVE DEVICE ♦ 

♦ ADDRESS TO ♦ 

♦ OOTPOT ♦ 

♦ AREA ♦ 
***************** 

**** 



y,'^ *.x 



**** 

L00P6 X 

*****yf^K^ ********** 

♦PRINT HV ♦ 

♦ «.*_*»♦_♦-♦-.♦_*-♦ 

♦ PRINT ♦ 

♦ PROGRAMMER ♦ 

♦ LOB ENTRY ♦ 
***************** 



*****fC, ********** 

* * 

* POINT TO ♦ 

* NEXT ♦ 

* ENTRY ♦ 

* * 
***************** 



.♦ ALL ♦. 

.♦PROG. LOBS 

♦. PROCESSED 



X 

***** 
♦RS ♦ 
♦ BU 



**♦* 

* ♦ 

* G3^ 



IS ♦.YES 

LOB ON- ...... 

.ASSIGNED .♦ 



♦ MOVE 'OA' ♦ 
X+ TO OOTPOT ♦ 

♦ AREA ♦ 

♦ * 
***************** 



**** 

* * 

* E5 ♦ 

* * 
***♦ 
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Chart HS. REALDUMP (Part 12 of 18) 



***** 

*HR * 
♦ 65* 



I.0BLOOP7 .*-^ 

.* *♦. 






L0BL0OP8 .*.^ 

.* **. 


.* *. 


L010 .*. 




.* B6 

♦. LOBS JOST 


* 

♦ 


♦ . .. 


.♦ m *. HO 

X*. LOBS JOST ...... 


.* P3 *. HO 
....X*. LOBS JOST .*.., 


.* P2 *. HO 
X*. LOBS JOST . *. 


♦.PROCESSID. 




♦.PROCESSED.* 


*. PROCESSID.* 


*. PROCESSED.* 




**. .** 






**. .*' 


**. .** 


**. ,♦' 


f 


♦ tES 






* YES 


* TBS 


* TES 


***** 

*HT ♦ 
* B1* 

* * 

* 


J. 






i 

.♦. 


X 


.1 


CLBLOB 


./' *•.. 






.." ••.. 


.." *•.. 


.*^'* *•*. 




. * ROBE 

••..ll!{li?!J,. 

♦ . .♦ 
*. .* 


« 
« 


. HC 

*. .. 


HO .« HOBE ♦. 
X *. ,♦ 


.* MORE ♦. HO 

♦. .* 


HO .* HORE *. 
..X...*. THIH POOR .* 

*. PARTI- .* 
*.TIOHS.* 

X *. .* 




♦ IBS 






***** * YES 
*HT * 

♦ 


* IBS 


•.»r : 

* 




«**4>*01****«««*«* 

« * 


CLBLOB 

***«*02********** 


***<• *ij3 ********** 
* « 


CLBLOB 

**4>**Dl^********4i* 




: .IS. 

*4>***«***4i*«***4« 


* HEADINGS * 

* TO * 

* ips* ♦ 

***************** 


* CBAHGE * 

* HBADIHGS ♦ 

* « P2 » ♦ 

***************** 


* HEADIHGS * 

***************** 





**£f ***«*«* 

♦ CHAH6B ♦ 

* HOP AT * 

L0BLC0P7 TO 

« A BRARCH * 

*T0 LOBLOOPS* 

«<■**«*****« 



«***4ipi *****««*** 



4l*£2******* 

* CBAHGE ♦ 
HOP AT 

L0BLOOP8 TO 
A EBAHCR TO 

* L09 * 

*********** 



*****P2********** 



**E3 ******* 

* CHARGE * 
HOP AT 

L09 TO A 
BRARCH TO 

* L010 ♦ 
*********** 



«**« ♦f 3 ********** 



**Bt|******* 

♦ CHAHGE * 
HOP AT 

L010 TO A 
BRARCH 

♦ TO CLBLOB * 
*********** 



*****i;4********** 



***************** 



***************** 



***************** 



***************** 



.X.. 
X 

***** 
*HE * 
♦ D1* 

* ♦ 



* ROTE 
THE DECISIORS AT 61, 62, 63, AHD BH 
CORSIST OP A HOP AS THl PIRST IHSTIOCTIOH 
IH EACH BLOCK OP CODE. RHEH THE CODE IS 
EXECOTED, THE HOP IS CHARGED TO A BRARCH 
TO THE HEXT SET OF CODE TO BE EX SCOT ID, 
THAT IS, THE CODE FOE THE HEXT P&ETITIOS. 
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Chart HT. REALDUMP (Part 13 of 18) 



BEFEBEUCIS***** 
TO HTBI: * * 

asB^, HSC2 * ** 

HSCtI * * 



* B3 * 

* * 



CLBLOB X 

♦PRINT HV * 

* PBINT HEAEING ♦ 

* 'PCIL LOBS' * 

* * 



* GET ADDRESS * 

* OP BG PRIVATE * 

* -CORE- IMAGE * 

* LIBRARY * 

* LOB ♦ 



* * 

* SET ♦ 

* PARTITION * 

* CODNTEB ♦ 

* * 

*♦♦* 



* El 



♦ **♦ 
LISTCLB X 

*EDIT H? * 

♦ _♦_*_♦-.*_♦-♦-♦_♦ 

* FORMAT * 

* LOB ♦ 

♦ ENTRY * 



mm^m^f^VHt^^m****** 



* ♦ 

* MOVE ADDRESS * 

* TO OOTPOT * 

* AREA ♦ 

* * 

♦ ♦♦* 



NEXTCLB X 

♦PRINT H? * 



*ii,itt**ncm********ii* 



* * 

* POINT * 

* TO NEXT * 

* LOB * 

* * 



B3 *. 
.♦ *. ♦♦** 

.♦ ALL ♦.NO * ♦ 

LOBS .♦ X+ El ♦ 

*. PROCESSED. ♦ ♦ ♦ 

*. . ♦ ♦♦** 

♦. . ♦ 
♦ YES 



POBCHCK X 

«4ti|c4i*p3 4i4t4i* ****** 
♦PRINT HV ♦ 

*_ *_*_♦-♦-♦-.♦_♦_* 

♦ PRINT HEADINGS ♦ 

♦ FOR ♦ 

♦ PDB TABLE ♦ 



ill ^t***^S ********** 
♦PRINT HV ♦ 

*_*_*_*_*_♦-.♦_*_♦ 

♦ PRINT HEADING ♦ 
♦•ERROR RECOVERY+ 

♦ BLOCK' ♦ 



**:tf**C'i********** 

♦ GET ADDRESS * 

♦ OF ERROR ♦ 
♦RECOVERY BLOCK ♦ 

♦ AND MESSAGE ♦ 

♦ TABLE ♦ 



♦ PRTNT PHASE 
*NAME AND HESSA-^ 

♦ GE:«FETCH NAME'^ 



♦ GET NEXT ♦ 

♦ ENTRY AND ♦ 

♦ NEXT MESSAGE ♦ 

♦ * 
)|< **** 4<* ****** *!t':4< * 



*)K********* ****** 



* * 






***4< 


IS 


* 


YES 


* 




LOB ON- 




♦. .. 


X* 


c.^ 


ASSIGNED 


.♦ 




* 





**4t4< 4(63 ♦♦♦♦♦♦♦♦*♦ 

♦ GET ADDRESS ♦ 

♦ OF SYSTEM ♦ 

♦ COMREG AND ♦ 

♦ POB OWNERSHIP ♦ 

♦ TABLE ♦ 
***************** 



**>tt4<*Q5«:********* 

♦PRINT HV ♦ 

*_♦-.*_*_♦_♦_*-*.* 

♦ PRINT ENTRY ♦ 

♦ WI*^H ♦ 

♦ MESSAGE ♦ 
*** ************** 



*****!] 1 ********** 

♦ GET PHYSICAL ♦ 

♦ ONIT ADDRESS ♦ 

♦ (COO) FROM ♦ 

♦ POB TABLE ♦ 
***************** 



*****j 1********** 

♦EDIT HV ♦ 

*_*-*_*«*_*_*_*.* 

* FORMAT ♦ 

* PHYSICAL ONIT ♦ 

* ADDRESS ♦ 
***************** 



, X. 

.POBLOOP X 

*****{]3 ********** 

♦EDIT HV ♦ 

*_ *_ *_ #_ #_ ♦_ *_ *_ * 

♦ FORMAT ♦ 

♦ PDB ♦ 

♦ ENTRY ♦ 
***************** 



.P0BLOOP2 X 

*****j3 ********** 

♦PRINT HV ♦ 

*_*_*-.*_*-*_*_*„* 

♦PRINT POB ENTRY^ 
♦ AND POB ♦ 

♦OWNERSHIP INFO ♦ 
***************** 



. ♦ ALL 

ENTRIES 
♦.PROCESSED. 



*****j5********** 
♦PRINT HV ♦ 

*_♦_* _»-*-*_*-♦_* 

♦ PRINT HEADING ♦ 
♦FOR ERROR QOEOE^ 

♦ ENTRIES ♦ 
***************** 



K3 ♦. 
.* *. **** 

,♦ ALL ♦. YES ♦ ♦ 
FOBS ......X^ B5 ♦ 

♦. PROCESSED. ♦ ♦ ♦ 
*. . ♦ **** 

♦. .♦ 



***** 

♦ HO ♦ 

* B1 + 
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Chart HU, REALDUMP (Part 14 of 18) 



***** 

♦HT * 
* J5* 



**** 

* * 

* B3 ♦ 

* ♦ 
**** 



**** 

* * 

* B5 ♦ 



*****^} ********** 

* GET ADDRESS * 
*0F EEBOB BLOCK,* 

♦ NOMBIB AND ♦ 

* LENGTH OF * 

♦ QOEOE ENTEIES * 
**i************** 



* CI *.X 



♦*** 
EEBL00P1 

*****Q\ ********** 

♦EDIT H? * 
♦_♦_♦_♦_»_♦_♦-♦_♦ 

* FOEHAT EEKOE * 

* QOEOE * 

* ENTBI * 
***************** 



EEBL00P3 X 

*****l^'\ ********** 

♦PEINT HV * 
♦_#_*_♦_♦_♦_♦-♦-♦ 

* PEINT EEEOE * 

* QOEOE * 

* ENTRY * 
***************** 



EBBL00P4 

*****-g'\ ********** 

♦EDIT H7 * 

♦_♦_♦_*_*_♦.*_*>♦ 

* FOEHAT * 

* SENSE * 

* DATA * 
***************** 



*****f\ ********** 

♦PEINT HV ♦ 

♦_*_*_*_*_*_,*_♦_♦ 

♦ PEINT ♦ 

♦ SENSE ♦ 

♦ DATA ♦ 
***************** 



*****Q'\********** 

♦ * 

♦ POINT TO ♦ 

♦ NEXT EEBCR * 

♦ QOEOE ♦ 

♦ ENTRY ♦ 
*******^, ********* 



,* *. **** 

ALL ♦.NO * ♦ 
ENTRIES .*. ...X* CI ♦ 
. PROCESSED. ♦ ♦ * 



♦ ♦♦♦ 

* ♦ 

* B3 ♦ 



CQCHCK X 

*****Q2********** 

♦ PEINT HV ♦ 

♦ _♦_.♦_*_*_♦_♦_♦_♦ 

♦ PEINT HEADING ♦ 
' FOE CHANNEL ♦ 

ABLE ♦ 

******* 



*****Q-3********** 

♦ GET ADDRESS ♦ 

♦ OF CHANNEL ♦ 

♦ QOEOE, AND ♦ 

♦ NOMBEE OF ♦ 

♦ ENTRIES ♦ 
***************** 



* D3 *.T 



**** 
CQLOOP X 

*****l,2********** 
♦EDIT HV ♦ 

♦_♦_♦-♦_♦_♦_♦_♦_♦ 

♦FORMAT CHANNEL ♦ 

♦ QOEOE ♦ 

♦ ENTEY ♦ 
***************** 



CCB ♦. NO 


♦ 


ADDRESS .♦... 


.X+ J3 


PRESENT .♦ 


* 


, ,* 


**** 



THIS ♦. 

POSITION 
. QOEOED .♦ 



*****Q2********** 

♦ * 

♦ POINT ♦ 

♦ TO NEXT ♦ 

♦ POB ♦ 

♦ ♦ 
***************** 



. ♦ ALL 
POBS 
♦. CHECKED 



**♦* 

♦ ♦ , 

♦ J3 ♦.X, 

♦ ♦ .X 

**♦* 
CQLOOP 3 X 

*****j^********** 

♦PRINT HV ♦ 
♦_*_♦_♦_♦_*_♦_♦_♦ 

♦ PRINT CHANNEL ♦ 

♦ QOEOE ♦ 

♦ ENTRY ♦ 
***************** 



♦ GET DEVICE ♦ 
.X^ ADDRESS (COO) ♦ 

♦ FROM ♦ 

♦ POB TABLE ♦ 
***************** 



*****QH********** 

♦EDIT HV ♦ 

♦ _♦_♦_♦_*_*_♦_♦_* 

♦ FORMAT ♦ 

♦ DEVICE ♦ 

♦ ADDRESS ♦ 
***************** 



*****jie^********** 

♦ * 

♦ POINT TO NEXT ♦ 

♦ CHANNEL ♦ 

♦ QOEOE ♦ 

♦ ENTRY ♦ 
***************** 



♦ ALL 

ENTRIES 
♦.PROCESSED. 



FPCHCK .♦. 

05 ♦. 

.♦ FLOA- ♦. 

.♦TING POINT ♦. 

♦.SPECIFIED IN . 

♦S0PBRVISOR.+ 

♦. .♦ 

♦. .* 



*****'gi^********** 

♦EDIT HV ♦ 

♦_♦_♦_♦-.*_*-.♦_♦_* 

♦ FORMAT FLOATING* 

♦ POI NT ♦ 

♦ REGISTERS ♦ 
***************** 



*****jr^********** 

♦PRINT HV * 

*-*-*-*^*^*^*^*^* 

♦PRINT FLOATING ♦ 

♦ POINT ♦ 

♦ REGISTERS ♦ 
***************** 



***** 
♦RW ♦ 
♦ B1* 



♦ ♦♦♦ 

* * 

♦ B5 ♦ 
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Chart HV, 



REALDUMP (Part 15 of 18) 



* * 

♦ PBIHT * 

• ♦ 



* GET ADDRESS ♦ 

* or ccw ♦ 

♦ ABD STOBE ♦ 

♦ IT IB CSi ♦ 



**4>C1 ************ 

* P8IHT * 
OHB 
♦ LI»1 ♦ 



* * 

* CLEAR * 

* OOTPOT * 

* AREA * 

* ♦ 
«*«*««4t********** 



***«S1 *4>*4>«*4'** 

* BBTORH * 

* TO CALLER * 

* * 



* « 

* EDIT * 

* * 
*4>4>4»t>********«« 



* ONPACK * 

* AND * 

* TRANSLATE ♦ 

* ENTRY * 



* RETORH ♦ 

* TO CALLER ♦ 

* * 



I 
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Chart HW. RE?\LDUMP (Part 16 of 18) 



***** 






♦ HO ♦ 






♦ F5* 






♦ * 






* 




* B2 
MESSAGE: 


VSFOEHBG X 




*****^-]********** 


NOT AVAILABLE' 


* GET 


* 




* ADDBESS 


* 




♦ OF CCB 


* 




* COPT BLOCK 


* 





CCB 
QOEOE 

IMPTI 



♦**D1 ****♦♦♦**** 

PRIMT 

♦ HEADING: * 

•COPIED AND 

* TEANSLATED * 

*4i******iti****Hi*^** 


*♦** 






*HX * 

* D5 *.X 

* * 






**** 






CCB1 X 
^,^i***-g'\**itt**^**i^* 

* * 


* FOB! 

* CCB 

* ADDl 


!AT 
30EDE 

!ess 


* 
* 

* 



* PRINT 

. X HESS AGE 

♦ (SEE * B2J * 

***************** 



***** 
*HX * 

* E5* 

* * 



**** 

* * 

* B3 * 

* * 
♦**♦ 

X 

****itf23********** 

* * 

* POINT TO NEXT ♦ 

* QUEUE ENTBI * 

* ASD NEXT TEXT ♦ 

* » 
***************** 



ALL ♦. NO 
ENTRIES .♦... 
PRINTED .* 



* B4 

HEADINGS FOR 

COPIED AND 

TRANSLATED 

CHANNEL PROGRAM 



♦ 


PRINT 
HEADINGS 


x 


* 


(SEE * Bl^} 


* 


***************Hi* 


**** 








*HX 


* 






* El 


*.X 






* 


* 






**** 








TSCCf2 


Ti 




*****C5********** 


* 




* 


* 


FOHHAT 


* 


* 


fIRTOAL 


* 


* 


ADDRESS 


* 


* 


OP CCW 


* 





**** 

* * . 

* D3 ♦. X. 

* * « 
**** 

?SCCB3 X 

*****i[<,2********** 

* * 

* GET ADDRESS * 

* OF FIXINF * 

* EXTENSION * 

* * 
***H,************* 



* HI * 

* * 

♦*♦♦ 



* * 




♦**♦ 


AHI 
FIXINF 
AVAILABLE 


*. NO 

.*. . . 
♦ 


* 
.X* J3 

**** 



n,^f****^iti********* 



***f '{*****if ****** 
PRINT 
* ADDRESSES * 
11 TH 

TEXT * 

(SEE ♦Fa) 
************ki** 



H^HHi^^QI ********** 

* * 

* FORMAT * 

* ENTIRE CCB * 

* QOEDE ♦ 

* ♦ 

■ti:*7ti***:t^nt********* 

**** 

* * 

* HI *.X. 

* * 

**** 

VSCCB2 X 

itt****^'t******i),** 
* 

* MOTE ONE 

* QCEDE ENTRY 

* SITH TEXT TO 

* OUTPUT AREA ■■ 



♦**J I************ 

* PRINT * 

QUEUE 
* ENTRY * 



*****f3****!tt***** 



TEXT: 

•ADDF.OF CCB 

COPT BLOCK 

QUEUE' 



*****'Q^********** 

* * 

* FORMAT * 

* CCl QUEUE * 

* ADDRESS * 

* ♦ 

***************** 



*****f^S********** 

* * 

* FORMAT * 

* ecu * 

* QUEUE * 

* * 
*i^*************** 



**** 
?SCCf3 X 

*****fS ********** 

* * 

* MOTE CCl * 

* IITH TEXT * 
♦TO OUTPUT AREA ♦ 

* * 
***************** 



***Q2************ 



***************** 



********ili******** 





.♦ ANT *. 




*♦♦ 




♦MORE FIXINF^ 


YES 


♦ 


*. 


EXTENSIONS 


♦ . . . 


X^ D3 




♦ . .♦ 




♦ 




♦. . ♦ 




***i 




♦ . .♦ 








♦ NO 






**** 






* 


♦ , 






* 


J3 ♦.X. 






* 


♦ 






**** 






VSCCl X 






**** ♦JO ********** 




* 




♦ 




* 


GET ADDRESS 


♦ 




* 


OF CCB 






* 


COPT BLOCK 


♦ 





ALL ♦ 


. YES 


CCl'S 


.*.... 


PRINTED .♦ 




.♦ 




*. .♦ 


X 


♦ NO 


***** 




♦HX ♦ 




♦ B1^ 




♦ ♦ 




♦ 




VSCC15 


X 




jtj********** 




♦ 


POINT 


♦ 


TO NEXT 


♦ 


CCl 


♦ 



***************** 



**** 

* * 

* 1*5 * 

* ♦ 
♦♦♦♦ 
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Chart HX. REALDUMP (Part 17 of 18) 



♦♦♦♦* 

*HW * 
* H5* 



♦MOVE TIC ENTBT * 

* WITH TEXT TO ♦ 

* OOTPDT JkBEH ♦ 

* ♦ 



#«9|<4!!t<4>**** 



TWO 

TIC'S 

PBINTED 



**♦♦ 

* ♦ 

♦ B3 ♦ 



♦ * 

♦ PORHAT * 

♦ IDAL * 

♦ QOEDE * 

♦ * 



♦ MOVE IDUL 
*QOEOE ENTII TO 

♦ OOTPOT AREA 



♦ * 

♦ B5 * 

♦ * 

Ix.. 



* FOR!! AT AND * 

* PRINT * 

* EXTENSION * 

* * 



♦**D 2*** ♦♦***** 



:|<]|i]|i«4>****3|<**4<*)fi«* 



* ALL CCW *. 


NO 


QOEOES 
*, PROCESSED,* 


*. .. . 




♦ . ,* 




♦ . . ♦ 


X 


* lES 


♦♦♦** 




*HW * 




♦ C5* 




4> * 




* 




VSCCW 


X 




111 4<*F1 ********'('*** 


PRINT 


* 


HEADING: 




•IDAL BLOCK 


* 



***************** 








*. . * 
* NO 

* ♦ . 

* 05 *.X. 

* * 
♦*♦* X 


X 








?SPIX5 .♦. 


♦♦*D3 ************ 








D5 ♦. 
.* *. 
.* ANY *. YES 


* PRINT * 








IDAL QOBOB 
* ENTRX * 








*. >!ORB .* 








*. CCB'S .* 

* . . * • 
*. .* X 


***************** 
















* NO ***** 










**♦* . *Hi * 










*HW ♦ . * El* 










* C2 *.X, * * 










* ♦ . * 


X 








**** . VSCCB1 


.*. 








VSBBOX X 


E3 *. 


*****f,H********** 


***£5************ 


.* *. 


* 








.* ALL IDAL *. NO 


* 


GET 




*PRINT HEADING: * 


*. QOEOES .* 

*, PROCESSED.* 


. . .X* 


NEXT IDAL 




••BOONDARY 


* 


QOEOE 




* BOX" * 


*. .* 


* 








*. .* 


*** 


************** 


***************** 


* YES 










***♦ 










♦ ♦ 










* F3 *.X. 




X 






* ♦ 




**♦♦ 






*♦♦* 




* * 






FIX ^^ *|*^*^^ *^ 




* J1 * 




X 






* * 
**** 




*****P5**** ****** 
* GET ADDRESS * 


* PRINT * 








*GF BOONDARY BOX* 


HEADING 








* AND NOHBER * 


* FOR PIXINP * 








* OP * 


BLOCK 








* PARTITIONS * 


***************** 








***************** 



*****Q1 ********** 

* * 

* GET ADDRESS * 

* OF IDAL * 

* BLOCK QOIOE * 

* * 
***************** 



.* IDAL 


* 


. 1 


*. QOEOE 
*. EMPTY . 




.*, 


* 




*. , * 






♦ . .* 






* MO 






**** 






* * 






* Jl *.X. 






♦ # . 






**** 






VSIDA1 X 






*****j\ ********** 


* 




« 


* FORMAT 




* 


: "j^Bgiii' 




♦ 




* 



**** 

* * 

* F3 * 

* * 
**** 



***************** 



*****G 3 ********** 

* * 

* GET ADDRESS * 

* OP PIXINP * 

* BLOCK * 

* * 
***************** 



*****H-^********** 

* * 

* FORMAT AND * 

* PRINT PIXINP * 

* BLOCK * 

* * 
***************** 



*****j3********** 

* * 

* GIT ADDRESS * 

* OP FINXINP * 

* EXTENTISION * 

* * 
***************** 



* H« 
CONTROL HILL BE 
GIVEN TO VSPPT 
XSEE CHART HY-B3) 

CHECK OCCORS 



* J4 

«N0 FIXED 
PAGE FRAMES 
AVAILABLE* 



*****g^********** 

* FORMAT AND * 
*PRINT BOONDARY * 

* BOX ACCORDING * 

* TO NO. OP * 

* PARTITIONS * 
***************** 



VSSTPT 

*****}|5^**3^****#l* 

*INIT NPSW HITH * 
♦ADDRESS OP BOO-* 
♦TINE TO BE EXE-* 
♦COTBD WHEN PRO-* 
♦GRAM CHECK * H4* 
***************** 



*****j 5**** ****** 

* * 

* LOCATE * 

* SEGMENT * 

* TABLE * 

* * 
***************** 



***K4 ************ 

* PRINT * 

.X MESSAGE 

* (SEE * JH) * 

***************** 



**** 

* ♦ 

* D5 * 

* * 
**** 
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Chart HY. RE?^LDUMP (Part 18 of 18) 



♦♦**♦ 

*HX * 
♦ J5* 



* A2 

(seghemt mb 

page table 

cXnsot be 

LOCATED' 



♦♦♦♦♦81PEBEHCIS 

* ♦TO HYB5: 

* **HLG3, HHE5 



. * SEGHENT *. 

TABLE 

*,LOCATABLE.* 



♦ FBI MT 

.1 MESSAGE 

* (SEE *A2) ♦ 



* POIHT TC ♦ 

* FIBST PAGE * 

* TABLE ENTEI * 

* STABT mTH * 

* ADDBESS ♦ 



♦PBINT HEALING: ♦ 
"SEGMENT TABLI- 
* PAGE * 

TABLE" 

*♦♦♦ 



* El *.X 



111*** 

?SSTPT2 i 

***»*|;t ********** 

* FORMAT AND ♦ 

* PRINT SEGMENT * 

* TABLE AND * 

* PAGE TABLE ♦ 



**4i:|<«pt 4<9tti|t4t3(:*«*«]K 

* ♦ 

* GET NEXT ♦ 

* PAGE TABLE * 

* ENTBY ♦ 

* * 
***************** 



END OF 

?IRTtIAL 

STORAGE 



,* ♦, **** 

.* ALL PAGE *. NO * * 
♦.TABLE ENT5IES.+. ...X* El * 

♦. PBINTEE .♦ * * 

*. .* **** 
♦ . .♦ 
* TES 



*****j'^ *****)tt**** 

♦ * 

♦ GET NEXT ♦ 

♦ SESHINT * 

♦ TABLE ♦ 

♦ ENTBl ♦ 

**:(»***«******«**:•( 



*♦»* 

* * 

* CI » 

* * 

***♦ 



VSPFT X 

*****B3 ********** 

♦ INIT NPSli WITH ♦ 

♦ ADDRESS OF ♦ 

♦ PROGRAM CHECK ♦ 

♦ ROUTINE ♦ 

♦ (SEE ♦ B«l * 
*«**>*******4i**** 



4t**C;;3 ************ 

PRINT 

♦ HEADING: ♦ 

"PAGE FRAME 

♦ TABLE - PPT * 

EXTENSION" 

***************** 

♦*** 



**** 
VSPPT1 X 

*****])3 ********** 

♦ * 

♦ FORMAT AND ♦ 

♦ PRINT PAGE * 

♦ FRAME TABLE ♦ 

♦ ENTRI ♦ 
***************** 



fSPFT9 X 

*****g3****^**9|l** 

* POINT TO NEXT ♦ 

* ENTRY IN PAGE ♦ 

* FBAHE TABLE ♦ 

* AND PFT 

* B 

***** 



CONTROL NILL BE 
GIVEN TO fSSELP fG3) 
HMEN A PROGRAM CHECK 
OCCURS 



***B5 ************ 



***************** 



****C5 ********* 

♦ EOJ ♦ 

* WAIT ♦ 

*************** 



X 






.*. 






F3 ♦ 








*, 


**** 


END 


♦ . NO 


* * 


OF PFT 


.♦. . . 


,1* D3 * 


TABLE 


.* 


* * 




* 


**** 



fSSELP X 

*****Q3 ********** 

♦ INIT NPSS ♦ 

♦ WITH ADDBESS ♦ 

♦ OF PB06EAM ♦ 

♦ CHECK ROUTINE ♦ 

♦ (SEE ♦ GftV ♦ 
***********«{)>**** 



***y3**** ******** 

♦ PEINT ♦ 
HEADINGS 

♦ FOR SELECTION* 
POOL 
***************** 



CONTBOL WILL BE 

6 IT EN TO ENDIT CB5) 

WHEN A PROGRAM CHECK 

OCCUBS 



*****j3********** 

* * 

* FORMAT AND * 

* PRINT ♦ 
♦SELECTION POOL* 

* ENfRI ♦ 
*******^*** ****** 



.♦ ALL *. NO 

ENTRIES . ♦. . . 
*. PRINTED .* 



*****Kil ********** 

* * 

* SET * 
X* NEXT * 

* ENTRY * 

* * 
***************** 



* B5 ♦ 

* * 
**** 
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PDSBM (PAGE DATA SET DUMP) 



FUNCTION 



PDSDM is a program that duirps the page data 
set (SYSVIS) . Depending on the parameters 
submitted on SYSLOS or SYSIPT, FDSDM dumps 
the contents of 

• The entire page data set 

• A specified virtual partition 

• One or more pages of the page data set. 



The dump is from 

• SYSVIS to SYSLST or 

• SYSVIS to SYSOOl or 

• SYSOOl to SYSLST. 

The page data set (SYSVIS) is always on 
disk, and is accessed by assigning SYSOOO 
to the disk drive containing SYSVIS. 

SYSOOl is used to temporarily store the 
page data set dump. It must be assigned to 
disk or tape. 

SYSLST may be assigned to a printer, a 
tape, or a disk drive. 

The first parameter given to FDSDM 
specifies the logical unit (SYSLOG or 
SYSIPT) from which further parameters will 
be read. These parameters rray be: 

• Parameters that specify the logical 
units from and to which the selected 
partes) are to be dumped. 

• Parameters that specify the part(s) of 
the page data set to be dumped. 

The output format is described under the 
heading 'Dump Page Data Set'. 

This program is initiated by the job 
control statement // EXEC PDSDM. Refer to 
Section 2-C-6 of Serviceability Aids and 

Debugg[ing grocedures , GC33-538 for the 

proper label information. 



FLOW OF CONTROL 

The flow of control in PDSDM is as follows: 

1. Initialize PDSDM 

2. Accept parameters (Part 1), specifying 
dump input and output devices 



3. Open files 

4. Accept parameters (Part 2), specifying 
the part(s) of SYSVIS to be dumped 

5. Duirp page data set 

6. Clcse files. 



INITIALIZE PDSDM (CHART JA) 

This part 

• Loads the base registers 

• Saves the contents of the boundary box, 
the number of partition supported, and 
the end address of real storage in the 
field FlSTREC 

• Opens SYSLOG file. 



ACCEPT PARAMETERS - PART 1 (CHARTS JA AND 
JB) , SPECIFYING DUMP INPUT AND OUTPUT 
DEVICES 



This routine checks the parameters that 
specify the logical units frcm and to which 
the selected parts are to be dumped. 



Input 
IPT 

LOG 



Action Taken 

Determines SYSIPT as 
input device fcr further 
parameters. 

Determines SYSLOG as 
input device fcr further 
parameters . 



Press END 

or ENTER 

on SYSLOG 

after LOG, or 

enter /* cr /S on SYSIPT 

after // EXEC PDSDM 



Dumps entire contents of 
page data set on SYSOOl 
and terminates job. 



TO=SYSLST 



TO=SYS001 



Selects SYSVIS as input 
and SYSLST as output 
device fcr dump. 

Selects SYSVIS as input 
and SYSOOl as output 
device for dump. 
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TO=SYSLSTrT 



Selects SYSOOl as input 
and SYSLST as output 
device for dump. 



The logical units selected for input and 
output ars indicated in the field SWITCH. 

In case of error^ the incorrect 
parameter is marked with * and a 
corresponding message is issued on SYSLOG. 
The invalid parameter may be corrected via 
SYSLOG. 



SYSOOl to SYSLST 



SYSVIS to SYSLST 



Reads first record from 
SYSOOl with above 
described contents and 
saves it in the field 
FISTREC. 

None. 



ACCEPT PARAMETERS - PART 2 (CHARTS JC, JD, 
AND JG) SPECIFYING THE PART(S) OF SYSVIS TO 
EE DUMPED 



OPEN FILES (CHARTS JB AND JJ) 



The first part checks which input and 
output devices are assigned for the dump, 
tests for correct device assignments, and 
opens the corresponding files if the 
assignments are correct. 



Device 
SYSLST 
SYSOOl 



Selected__Input 
Device 

SYSVIS 



SYSOOl 



Action Taken 



Opens SYSLST file. 

Tests if SYSOOl is 
assigned to disk or tape, 
If yes, opens SYSOOl 
file. 

Action Taken 



Tests if SYSOOO is 
assigned to disk. If 
yes, opens SYSOOO. 

Tests if SYSOOl is 
assigned to disk or tape. 
If yes, opens SYSOOl. 



In case of error, a corresponding message 
is issued on SYSLOG. 

The second part tests if the dump is from 

• SYSVIS to SYSOOl or 

• SYSOOl to SYSLST or 

• SYSVIS to SYSLST 

and takes the following action: 



Dump_Frora 
SYSVIS to SYSOOl 



Writes the fcllcwing 
information as first 
record on SYSOOl: 
internal file JJ). number 
of partitions supported, 
end address of real 
storage, and contents of 
the boundary box. 



This routine tests the parameters that 
specify the part(s) of the page data set to 
be dumped. The parameters tested and the 
corresponding actions taken are: 



In^ut 

(address, address) 



partition ID 
(F1,F2,F3,F4, or 
EG) 



address 



EOJ en SYSLOG 



IPT on SYSLOG 



^S£icn_Taken 

Checks whether start and 
end addresses of 
selected pages are 
valid, translates them 
into record numbers and 
saves them in the table 
PARAM. 

Checks for partition(s) 
specified, gets 
corresponding start and 
end addresses, 
translates them into 
record numbers, and 
saves them in the table 
PARAM. 

Checks if address is 
valid, translates it 
into two equal record 
numbers and saves them 
in the table PARAM. 

Terminates job. 

Switches from SYSLOG TO 
SYSIPT to read further 
parameters. 



Press END or ENTER If this key is pressed 



en SYSLOG 



after the message GIVE 
PARAMETERS has been 
issued, the contents of 
the entire page data set 
are dumped to the output 
device selected 
previously. 



/* or /g indicates the end of input to 
P^SD^^ if read from SYSIPT. If this card 
is encountered immediately after the card 
containing T0=, the entire page data set is 
dumped to the output device specified, and 
the job is terminated. 
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When all parameters have been checked 
and processed, control is passed to the 
dump page data set routine PRINT. J^fter 
completion of the dump, control is returned 
for further parameter processing. 

In case of error, the invalid parameter 
is marked with *, and a corresponding 
message is issued on SYSLOG. Reading of 
input is switched to SYSLOG, and new 
parameters may be entered, or the correct 
parameters up to the invalid one may be 
processed. 



DUMP PAGE DATA. SET (CHARTS JE, JF , AND JH> 

This routine dumps the partCs) selected 
from the page data set to the output device 
specified. 

The format of the dump depends en the 
output device specified: 

2]^£E]^t.__Device Dump Format 

SYSOOl Blocks of 2K. 



SYSLST 



Each block has a block 
number, starting with froir 
the first page of the page 
data set. Printed en 
SYSLST, each line contains 
32 bytes of the page data 
set in hexadecimal format, 
followed by the translation 



in printable characters . 
Identical words and lines 
are printed only cnce 
followed by the wcrd 
•—SAME--', and blocks 
containing only X'OO* are 
not printed. Instead, the 
message • BLOCK x (begin 
address - end address) 
CONTAINS ZEROS" is issued, 
or, if ir.ore than cne block 
contains zeros, the message 
'BLOCKS x-y (begin address - 
end address) CONTAIN ZEROS' 
is issued. 

VJhen all records indicated in the table 
PARAM have been processed, ccntrcl is 
returned tc the pararreter acceptance 
routine. 



CLOSE FILES (CHART JJ) 

This part closes 

• The input and output files used for the 
page data set dump 

• The SYSLOG file 

• The SYSIPT file, if it was opened. 

In addition, any cards retraining in the 
reader are flushed. Finally, the program 
FDSDM is terminated. 
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Chart JA. PDSDM - Parameter Acceptance (Part 1 of 4) 



♦ * 

• PDSDH ♦ 

* * 



* * 

* BS ♦ 

* Ik 



* SAfE BOOMDAST * 
*BOX. MOM BBS OF • 
♦PIRTITIOBS AMD ♦ 
« BEAC. SfOSASi • 

* EHD ADDBBSS * 



>«*«*C1 4>****4i**** 



:****«««4l*«4***«* 



4i4'*B3<i'**********<» 



4i«4i**«**4i4i4>4i«**4>« 



* LOG ♦ 
MESSAGE 

* (SIB * 02) * 

♦♦♦• * 

* * 

* 11 *,X. 

* * 

APABHO X 

*4>«gt ************ 

* BEAD * 
RESPONSE 

* (SEE * E2) * 



.* BUD *. lis 
*. KEI ,*.... 
*. * P2 .* 



♦ D2 
"EMTEB tOG OB 

IPf, IF liSOf 
rBOH STSLOG 01 
SISlPf , 01 IMD- 
KBI POR DBFAOLTS" 



* 
♦ D3 



* E2 

BBS PONS B 

HOST BE 

ENTERED ON 

STSL06 



OOflPED ON STSb 



X 

*JfB * 
♦ B1* 

* * 

* 

APARH? 



* * 

* J1 *.X. 

* * . 

APARH 1 X 



*«4<««**4t«t|i*4c««i4t4i« 



**4iD2*****« ****** 

* iOG HS6: * 
.X "IPT OR LOG 
* IMCORBECTLT * 
SPBCIPIBD" 



• B1 * 



*JB * 
♦ B1* 



X 

♦♦♦*♦ 
*JB * 
* B1* 



APARN7 
ABRRtt X 

LOG nsG: 

* "STSLSf OR * 
SfSOOl NOT 
* CORRECTLf * 

SPBCIPIBD" 



♦. ♦♦♦• 

SISLST *. NO ♦ ♦ 

SPECIFIED .*.... X* B5 ♦ 



NEXT ♦. TBS 

POSITION .*.... 
. BLANK .* 



* ♦ 

* INDICATE * 

X* OOTPOT ON *.... 

♦ SYSLST * 

♦ ♦ 

*JB * 



* * 

* BS ♦ 

* • 



* BEAD 

A 
* CARD * 



kvhms 



H 



.* IS *. 

IT A 

♦. DBLIHITEB, * 



♦ LOG HS6: 
.X "NO DELIHITBR 
* SPECIFIED" * 



* LOG hsg: ♦ 

.X "NO CHARACTER ..: 
* T SPECIFIED" * 



NEXT 
POSITION 
. BLANK 



***Rft ****** ****** 

* LOG HSG: * 
.X "NO BLANK ..] 
* AFTER * 
PARAHETER" 



♦JB ♦ 
* B1* 





♦ 


T0= 


* 


YES 


* 


* 


SPECIFIED 

'*. .*" 
*« .♦ 
* NO 


* 


*. . . • 

X 

* * 












* D3* 












• * 












♦ ♦•* 


BRF5 










* 


*«H5« 





* J<» 



* ♦ 

* J1 * 



*4i4i*4iJ3*4t****4e*** 

* INDICATE * 

* OOTPOT ON * 

* SYSLST: INPOT ♦ 

* SYS001 * 

**4r#4t*****4>****** 



WHEN FIRST EOF IS **** 

ENCOONTERED THE BRANCH IS 
TO APARH7 fDEFAOLT f ALOE) . 
ON NEXT EOF THE 
JOB IS TERMINATED. 



* LOG MSG: * 

"T0= TUCORRECT- 
♦ LT SPlCIFIiD"* 

*«**«l«!« * *** 4>4i* ««>* 



♦♦***J«> ***♦**♦*** 

* * 

* FORCE READING * 

* FROM SYSLOG * 

* (SEE * J5) * 

*****4>*********** 



X 

***** 
*JB * 
* D1* 



**** 

* ♦ 
« J1 * 

* ♦ 
**** 
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Chart JB. PDSDM - Parameter A^cceptance (Part 2 cf H) 



* ♦♦♦♦EEFEfiENCIS 

* ♦TO JBBl: 

* ** JABS, J*C3 
* * JAFl, JAfS 

* JCF1 



* * 

* B2 * 

* ♦ 
♦*♦♦ 



* Ra 

PDS IS tOCITBD 
ON STSVIS 
(= STSOOO) 



* * 

* B5 * 

* ♦ 



&P»RM7 .*. 




X 


B1 *. 




iit*iii*ni^2********** 


.♦ His A *. 




* * 


,* PAEABETER *. IIS 


* LOAD BRANCH * 


*. BIE8 .*, 




* REGISTER FOR ♦ 


*. ENTERED .♦ 




* SDBROUTIHE * 


♦ . .♦ 




* (SEE * G2J * 
^f*l^**ili*Ht*iti*tik**** 


*. .* 


X 


♦ NO 


***** 
*J3 ♦ 

* 




*4i*«4>ei***)(<*«*4>** 


IPDSEND 








* SET DEFAULT ♦ 






* SWITCH AHD * 






* CALCOLATE * 






* HECOID ♦ 






* HOBBEB * 






**4i**4c****4i4<4i4'4>*iti 






***♦ * 






♦ * . BBFEBENCIS 




* * *.x! TO JBD1: 




♦ ♦ . JAEU, aAJ3 




♦*♦* X 






APARH8 .*. 






D1 *. 






.* *. 






.* DEVICES *. YIS 




♦. OPEN .* 






♦ . . ♦ 






*. .* 






♦ . .* 


X 




* SO 


♦♦♦** 
*JE * 
»^B1* 

* 






fRIHT 






lOPNLST 


El* *♦. 




:^:^^^*j^-J^2******^*** 


.♦ *. 






.» OUTPUT ♦. TIS 


♦ PllPill ♦ 


*. TO SfSLSf .* 




X* TO 0P18 * 


♦, .♦ 




* SISLST * 



.* PDS 

.X*. ON 

*. SIS001 



:ltiiH7t'**BH********** 

* SET STS001 * 
.X* INDICATOR FOR * 

* DETICB TEST * 

* (SEE * AW * 
*ifm*********k**** 



* SET SIS001 * 

* INDICATOR ♦ 

* FOR DBYICE * 

* TEST * 



]|c:»**4>***#4e*#***4:* 



ITSTPDS X 

*m***j33********** 
♦ITSTPDS J J ♦ 

*_♦_♦_♦_♦-*-♦_♦-.♦ 

♦ TEST DEVICE ♦ 

♦ TIPE ♦ 

♦ ♦ 



♦ OPEN ♦ 

♦ PDS ♦ 

♦ FILE ♦ 

♦ * 

***Hi*if;IHf^titt******* 



♦ READ FIRST 
RECORD 
♦ CSt?E ♦ H4) ♦ 

** 4e4i 4>* *« 4t « ^i* «« «« « 



INTERNAL 

FILE 

ID 



:t^*m*^^^^H***^f*m**** 

♦ * 

♦ LOG MESSAGE ♦ 

♦ ATTEMPT TO ♦ 

♦ DOHP A FILE ♦ 
♦OTHER THAN PDS ♦ 

****1tL*:ts********** 



ENDJOB 

I 

****Ett ♦♦***♦♦•♦ 

* * 

* EOJ ♦ 

* * 



*inHf*jiS********** 

* * 

♦ SAVE ♦ 

♦ FIRST ♦ 

♦ RECORD ♦ 

* * 

* Hi* *m****** ****** 



***** 
*3C ♦ 
♦ B1^ 



♦ LOAD BRANCH ♦ 

♦ IBGISTEi ♦ 

♦ FOB ♦ 

♦ SQBBOOTINE ♦ 

♦ fSBB ♦ G21 ♦ 
i^0i),4********m**** 



**«*:#g -!♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ SET SIS0D1 ♦ 

♦ IHDICATCB ♦ 

♦ FOR DEVICE ♦ 

♦ TEST ♦ 



*4>***H 1 ********** 
♦ITSDEV JJ * 
♦«♦_♦-♦_♦_♦-♦_»«♦ 

♦ TEST ♦ 

♦ DEVICE ♦ 

♦ TfPE ♦ 

iHlf**i^*****1f***i^*t' 





♦ 






**** 


PDS ON 




♦ . 


fBS 


* 


SYSOOl 






► ♦. . . 


.1* B5 


♦ Gft 


♦' 


* 




* 

****. 



♦ G2 
REGISTER BILL BE 
USED AS INDEX 
REGISTER FOR 
BRANCHING TO IRODPDS, 
iaOD001,TAPE» 
08 I TAP 11 



♦♦♦♦ 

* * 

♦ J1 ♦ 



lOPNOOT 

**4i**J1 m********: 



OPEN 

OUTPUT 

FILE 



4.i|i4i*4<4>*4t4****; 



♦ B2 ♦ 

♦ ♦ 

♦ *** 



OOTPIFT 

TO 
SfSLST 



♦ * 

♦ HOVE IHFOR- ♦ 

♦ BATIOH TO ♦ 

♦ OOTPOT ARIA ♦ 

♦ fSEB ♦ H«l) ♦ 



**4ij3*4i*4i*4i4i*4>*** 



IRITE FIRST 

'liiS?,"" 


*x..... 

♦♦♦*♦ 


♦JC ♦ 


* 


ACCPAHB 



IBS REAirs OOTPOT IS TO SISLST; 
NO BEANS PDS IS ON STSOOa 
ANI^ OUTPBIT RAl BE TO SISLST 
01 SfSOOI. 



♦H* 
THE INTERNAL FILE ID, 
THE BOONDART BOX, 
RBAL-STOBA6B BUD 
ADDRBSS.iHD NOHBIB 



OF PARTITIOIS »ILL 
BE FIRST RECORD ON 
STS001. 
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*4>4>4<:t< REFER ENCES 






♦ ♦TO 


JCB1: 






♦ **JBD5 


, JBJ3 






♦ * JDH3 


, JEB1 






* 








X 




iCCPABH 


.*. 








B1 *. 








* ♦. 






*' 


DEPAOLT *. 


YES 


* 




SiilfCH 


*. .. . 




'♦. 


ON .* 

*. ,* 


; 






*. .♦ 


X 






♦ NO 


***** 

«JE * 

♦ B1* 



**** 

* * 

* 83 ♦ 

* * 
**** 



*♦♦* 

* ♦ 

* B5 * 



♦. 


.* 


X 


* NO 


***** 




*JD * 






» B5* 






* * 






* 






ACCPAR8 


X 




***^'^ ************ 


LOG HSG: 


♦ 


••GIVE 




PABAI 


!ETIBS« 


* 



***************** 



***■£■]************ 

* READ * 
RESPONSE 
♦ PROM * 
SISLOG 
***************** 



.* 


END 


* 


YIS 


♦. 


KEY 




♦ . .. . 






* 




**. 


.* 








It. . * 




X 




* NO 




***** 


**** 






♦JB * 


*JD * 






* B1* 


* E3 ♦ 


xl 




* * 


* * 






* 


**** 






APARH7 


PARI 








61 *. 







*. , * 




X 


* NO 




♦**♦♦ 
♦JJ * 
* Hi** 

* * 
* 






IPOS END 








*"^****** 












,*''STSIPT 


* 


YES 


*. 




*. .. . 


♦ . 


*' 




*. .* 






*. .♦ 




X 


* NO 




***** 


**** 




*JD * 


*JD * 




* B5* 


* E5 *,X. 




* * 


* * . 




* 


**** X 




ACCPAR8 


ACCPAR2 .♦. 






J1 *. 






. * * 






.* LEFT 


♦, 


NC 


..X*. PARAMETERS 




*. ... 


*. 


* 




*. .* 






♦ . .♦ 




X 


**** * YES 




***** 


* * 




*JD * 


* J1 * 




♦ B1* 


* * X 




* * 


**** **♦* 




* 


* * 




ACCPAR4 


♦ B3 ♦ 






* * 






**** 









.*, 


AERR6 X 




.*. 








B3 *. 


***BH************ 


B5 ♦. 








.* *. 


LOG MSG: 


.* * 








.* START *. NO 


* "ADDRESS * 


.* TS 


* 


NO 




*. ADDRESS . *. . , 


X HOT IN ... 




*. ADDRESS 
*. VIi^TDAL 


* 


.*.... 




*. IN HEX .* 


* HEX * 






*. . * 


FORMAT" 


*. .* 








*. .* 


***************** j( 


*. .* 




X 




* YES 


***** 


* YES 




**** 






*JD * 


**♦♦ 




* * 






* B3* 


* * . 




♦ D4* 






* * 


* * *.T. 




* ♦ 




" 


* 


* * 




**** 






ACCPAR6 


*♦** 








X 


ACCPAR3 X 








*****C2********** 




*****(;-Cy********** 




♦ADDRCHCK JG * 


* cn 


* 




* 




♦- ♦- *-. ♦_ ♦«*-♦-.*_♦ 


ADDRESS IS REAL, 


* CALCDLATE 




♦ 




* CHECK * 


OUTSIDE fIBTDAL 


♦ RECORD NR 




* 




* ADDRESS * 


PARTITION, OR OOTSIDE 
VIRTDAL STORAGE 


* AND POT IT 




* 




* * 


* IN TABLE 




* 




***************** 


I.E. GREATER THAN 


***************** 






VIRTDAL END ADDRESS RIFIRSNCSS 










TO 


JCC5: 










JDE1 


, JDK1 








X 


AERP12,13 


X 








.*. 


OR 17 


.*. 








D3 *. 


***Da ************ 


DS *. 








.* *. 


LOG 


.* * 








.♦ IS *. NO 


* APPROPRIATE * 


.* ANY 


* 


NO 




*. ADDRESS .*. . . 


X ERROR ... 




*. MORE PARA- 
*. Ml'TFRS 


* 


*. . . . 




*. VIRTUAL .* 


X * MESSAGE * 








*. . * 


(SEE * CH\ 

, *****4*********** 




* . .* 








*. .* 




*. . * 




X 




* YES 


**** 

* * 

* Dt» ♦ 

* * 
**** 




* YES 




***** 

*3B * 

* B1* 

* * 

* 




X 






X 




PRINT 




.*. 


AERR8 




. *. 








E3 *. 


***jiH************ 




E5 *. 






E2 


.* *. 






. * *. 






THERE MOST BE 


. * DELIMITER ♦. NO 


* LOG MSG: * 




.* DELIMITER 


* 


NO 


A COMMA HHEN A 


*. (SEE * E2) . *. . . 


X "NO DELIMITER ..X 




*. 
*. 


* 


*. . . . 


LEFT PARENTHESIS 




X ♦ IS SPECIFIED"* 




IS SPECIFIED 


*♦. . ** 






*. .* 








*. . * 


I ***************** 




*. .* 








* YES 


**** 

* * 

* EH « 

* * 
**** 




* YES 

X 

♦ ♦** 




**** 

* * 

* ?A* 

* * 
**** 




X 






* * 








, *, 






* J1 * 








F3 *. 






* * 








.* *. 


**** 




*♦** 








.* END *. NO 


* * 












*. ADDRESS .*... 


.X* B4 * 












*. IN HEX .* 


* * 












*. ,* 


**** 











***gh ************ 

♦ LOG MSG; * 
.X "NO RIGHT ..] 
* PARENTHESIS" * 

***************** 



.*. AERR10 

K3 *. ***^nm'f ********* 

.* *. LOG HSG: 

.* START *. YES *"START ADDRESS * 

♦ .ADDRESS > END.* X GREATER 

*. ADDRESS .* * THAN END * 

*. . .* ADDRESS" 

*. .* ***************** 
* NO 



*****j 2********** 
♦ADDRCHCK JG ♦ 

*_♦_*-. *-.*-*-.*-*_* 

♦ CHECK * 

♦ ADDRESS * 

♦ * 
***************** 



♦ B5 * 

* * 
**** 
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***** 

♦ JC ♦ 

* J1* 



B1 *. 

.* IS *. 

PJIRAWETIR *. N' 
A PARTITIOH .*. 

ID .* 



*. 



4i****Cl ********** 

♦ADDBCHCK JG * 

♦ _♦»♦_♦_*-.*«*_*_♦ 

♦ CHECK ♦ 

* PABTITIOM * 

* * 

itcit<*****:4t***4<***4t« 



BEPEBENCIS 
TO JDB3: 
JCB4, JCHU 



**** 
ACCPAR6 X 

***B3 ************ 

* LOG * 
HESSAGE 
* (SEE * B4) ♦ 

***4e*4c**********iK 



* BH 

MSG:« PRESS END 
KEY TO PROCESS 
PREVIOUS PARR- 
METERS OR ENTER 
NEW PARAMETER" 



BEFERENCIS ***** 
TO JDB5: * * 

JCC1, JCH1 *^ ;* 



* BEAD 
CARD 
♦ F^OH * 
SYSIPT 
***************** 



* C2 
PARTITION HAY BE 
REAL OR NOT 
ALLOCATED: OR 
THERE MAY BE NO 
ENTRY FOR PARTITION. 



AER111,12 
OR 11* 

*!|t*Q 2 ****** ****** 
LOG 
* APPROPRIATE * 
. . - I ERROR 

MESSAGE ♦ 



******** ii<# 



***************** 





*. **** 


END 


*. YES * 


KEY 


.* X* G3 



*****{) 5********** 

* * 

* SET * 

* INPUT IN * 

* UPPER * 

* CASE * 
***************** 



*****!; •]**** ****** 

* * 

* GET START * 

* AND END ADDE * 

* OF PARTITION * 

* * 
***************** 



*****]S3 ********** 

* INITIALIZE * 

* PARAMETEB * 

* TABLE * 

* TO START * 

* OVER AGAIN * 
***************** 



* SET NEf * 

* EOF ADDR. * 

* TO EOJ * 

* ROUTINE * 

***************** 



* C5* 




* G1* 




* * 




* * 




* 




ACCPAEI 




**** 




**♦* 




* * 




* * 




* G1 * 




* G3 * 




* * 




* * 




**** 




**** 




i 




i 




CCPAE5 .*. 


AERR6 


ACCPAR7 .*- 




G1 ♦. 


***Q 2 ************ 


G3 *. 




.* *. 


LOG HSG: 


.* CAN *. 




.* ADDRESS *. NO 


* "ADDRESS * 


.♦ PABAHETEB *. YES 




*. IN HEX .♦,... 


. . . - X NOT IN 


*.BE PROCESSED ...... 

*. ,* . 




*. FORMAT ,* 


* HEX * 




*. .♦ 


FORMAT" 


*. .* 




*. .* 




*. .* X 




* YES 


; 


* NO ***** 
*JE * 
♦ Bl* 






X 


* * 


*m 




**♦* 


* 


MSG: "NO PREVIOUS 




* * 


PRINT 


PARAMETER AVAIL- 


X 


* B3 * 


X 


ABLE TO BE 


♦ ♦♦♦♦til ********** 


* * 


***H3************ 


PROCESSED" 


*ADDRCHCK JG * 


**** 






*_♦_*_*-.*_*-*-.*_* 




* LOG * 




* CHECK * 




EBBOR 




* ADDRESS ♦ 




♦ HESSAGE * 




* * 




*****iE********ic** 




***************** 










X 

***** 




X 


AERR12,13 


*ac * 




.*. 


OR 17 


* B1* 




J1 ♦. 


***J2************ 


* * 




.* *. 




* 




.* IS ♦.NO 


* LOG * 


ACCPARM 





***** 
*ac * 
* ji* 



APPROPRIATE 
* ERROR * 

HESSAGE 
***************** 



*****f^1 ********** 

* * 
♦HAKE PARTITION ♦ 

* START AND END * 

* ADDRESS ♦ 

* EQUAL * 
******* jE********* 



**** 

* * 

* B3 ♦ 



***** 
♦JC ♦ 
* C5* 
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♦♦♦♦♦ BEFEBEHCIS 

* * TO JEB1: 

* *♦ JBD1, JCBI 
♦ ♦ JCD5, JDG3 



*♦*♦ 

* ♦ 

* B3 * 

* * 



HOBB 
. PABAHE- 
*.TEBS .♦ 



♦♦♦♦♦ 
*JC ♦ 

* B1* 



Cl *. 
* *, 
OBTFOT *. YIS 
TO .* 

STSLST .♦ 

*. .♦ 
*. .* 
* HO 



* * 

* SKIP TO * 
I* REW * 

* PAGE * 

* * 



PAGE 
COHTAIN 
. OHLI 

♦.x«oo«.* 



FIRST 

PAGE 

SWITCH 



TBS * * 

*....X* B5 * 



PI^ST 

PAGE 

SWI-^CH 



* * 

* G1* 



♦ BEAD * 
COBBECT 

* BECOBD FROM * 

PDS * J2 

♦ ♦♦♦ ' 

* it *.i, 

* * . 
♦♦*♦ X 

.♦. 
B1 ♦. 



.* 

.* ODTPOT 
TO 
*. SISLST 



♦ ♦»♦ 

lis ♦ * 

*. ...X* B3 * 



* tRITl ♦ 
BECOBD 

* TO SYS001 * 
fSlB * 12) 

♦♦** I 

* * - 

* G1 ♦.X. 



lOOTBHD *. YIS 
BECOBDS .*.... 
WBITTBH .* 



*F2 

BECOBD SIZE 

IS 2008 BYTES 

0» SYSCO 1 



♦ POINT * 
X* TO NEXT * 

♦ PAEAHETEB * 

♦ IH LIST * 



* ♦ 

* PREPASE * 

* HRSSA6E * 

* (SEE * DO) * 

* * 



«««£ 3 #41** ^ill^llt^I**^! 



***************** 



***F3 ************ 

* PBINT * 
BLOCK 
♦ HEADEB * 

***************** 



*****G3********** 

* * 

* DETERHINE * 

* VIRTUAL * 

* ADDRESS * 

* « 
***************** 



* Dt» 
BLOCKS C08TAIKIJJG OHL^ 
ZEROS ARE MOT PRINTED; 
IHSTBAD THE BLOCK 
NOHBEBCSf ARE PRINTED 
WITH A HESS AGE 
INDICATING ONLY ZEROS 
FOOND 



*****(;;5 ********** 

* * 

* SET TIRST * 

* PAGE * 

* SWITCH * 

* ON * 

***************** 



*****])5********** 

* * 

* SAVE * 

* BECOBD * 

* NOMBER * 

* * 
***************** 



*****g ) ********** 

* * 

* OPDATE ♦ 

* CDRBBNT- ♦ 

* BECOBD ♦ 

* NONBBB « 
***************** 



*»*J t*4>***4>«***4>* 



H2 *. . 


*****[{ 3********** 




♦PBNT2K JH ♦ 


DEPAOLT **. YES 


*-*-*-*.*.*.*.*_* 


SWITCH .* 


♦ PBIHT * 


ON .* 


* ONE * 


.* 


* 2K BLOCK * 


*. .* X 


***************** 


* HO ***** 




*JJ * 




* BU* 




X * * 


X 


**** * 


*«♦* 


♦ * IPDSEND 


* * 


* 31 ♦ 


♦ G1 * 


* ♦ 


* * 


♦♦** 


**** 




PCKLAST 



***************** 



♦ 32 
THE NOHBEB OF THE BECOBD 
CORBEHTLY IK STORAGE IS UPDATED IN 
"CUBBEC*. IF A NEW PABAHETEB BEQOIBES 
A BECOBD WITH A HI6HEB NR. THAN "COBB EC", 
THEN THE BICOBDS IN BETWEEN ABE SKIPPED. 
IP THE BECOBD NB. IS LESS THAN «»CORBEC", 
THE PDS PILE IS CLOSED AND THEN BEOPENED 
IN OBDBB TO ACCESS THE COBBECT BECOBD. 
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Chart JF, PDSDM - EOFROUT and PRECPEN 



* EOPBOOT ♦ 

* (SEE * &2J ♦ 



*&2 
THE ADEHESS OP THE 
EOFBOOT IS STORED 
IM THE DTF T&BLE FOR 
THE PDS FILE. fHEH 
AN EOF CONDITION 
OCCOBS. THE EOF 
BOOTIHE IS EIBCOTBD 
AMD THE JOB IS 
TEBBIBATED. 



* * 

* PREOPES ♦ 

* * 



EOFBOOT .*. 

B1 ♦, 
.♦BLOCKS ♦. 
*«ITH X»QO» 
SDPPBESSED 



HO 



PREPARE 
A PRINT 
MESSAGE 



4i****4>4>4>4>4>4r**«*4(4> 



4i***«C3«********4i 



*4i4i4i«*4>4i«**4[****« 



* « 

* DETEBHIIE ♦ 

* VIRTOAL * 

* ADDRESS ♦ 

* CADSING EOF ♦ 



* * 

* HAIE ADCR * 

* PRINTABLE • 
» AND INSERT ♦ 

* IT IN ERROR ♦ 



ISSOI 
ERROR 
HESSA6B * 
(SEE » D2» 



*D2 
"ATTEHPT TO DOHP 
PAGE COTS IDE PDS 
IXIXXX". 



• READ * 

FIRST 
♦ RECORD * 



♦ ♦ 
» RETOHH ♦ 

♦ ♦ 



***** 
*33 * 
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Chart JG. 



PBSDM 



ADDRCHK 



♦***A1 ♦*♦♦♦♦*♦* 

♦ * 

* ADDECHCK * 



ADDBCHCK 

♦ GET ftDDB OF * 

♦ BBOX, EHD OF ♦ 

♦ SEAL STOfilGE, * 

♦ SHD 8E.0F * 

♦ PAETITIOHS * 



CI ♦. 

.* IS ♦. ♦*♦♦ 

.* PARAHETIH *. YES * * 

*. A PABTITION .*....!* B3 * 

*. ID ? .* * * 

*. .* *♦*♦ 



* ♦ 

* B3 * 



SCHCKID .*. 

B3 *. 

.* IS *. 

.* ID > *. 

*. NOMBER OF . 

♦.PARTITION.* 



.X* 



« « »( « H, g t| )«= * If « « 3|' ))> * « * 

* SET RETURN * 
*CODB TO INDICA-* 

* TE NO * 
*ENTRT FOR PAR- * 

* TITION (* J4) * 

4t !|i « * :ti :): « * 4c 4: * * !«< * 4t Ht 41 



* K1 * 



NO 



♦ ♦♦♦ 
ACHKNTRY 

♦ * 

♦ POINT TO ♦ 

♦ ENTRY IN * 

♦ BOUNDARY * 

♦ BOX * 



ASETRBAL 

* SET RETURN * 

* CODE TO * 
. ..X* INDICATE * 

* REAL ADDRESS ♦ 

* (SEE * Jt») * 



*♦♦* 
4 * 

* K1 * 

* * 



* * 

* CALCULATE * 

* POSITION ♦ 

* OP ENTRY * 

* IN BBOX * 



* DBCRRHENT * 

* NUMBER OF * 

* PARTITIONS * 

* BY ONE ♦ 
4> itt * * * 4> 3tc :* 4> « itc 4i « 3|< * « * 



. * ALL *. NO 

. PARTITIONS .*... 
♦ .PROCESSED.* 



♦ **♦ 

* ♦ 

* El* 

*♦*♦ 



AOUTVI^^f X 

* SET RETURN * 
*CODE TO INDICA-* 

* TE OUTSIDE ♦ 

* OF VIRTUAL * 

* STORAGE f ♦ J«) * 
#ntt ************** 



* POINT TO * 

♦ ENTRY IN * 

♦ BOUNDARY ♦ 

* BOX ♦ 

**^t****^**1lc*iH**:/^* 



F1 *. 

.♦ IS *. 

.* ADDRESS * 

♦LESS THAN VIR- 


YES 
♦. .. . 




*m***f2********'> 
♦ SET RETURN 
♦CODE TO INDICA 
, .X*TE OUTISDE TIR 


¥* 


F3 ♦. 
.* * 
.♦ IS 
♦. PARTITION 


♦.TUAL ORI-.* 

♦. GIN .♦ 
*. .♦ 

♦ NO 






♦TUAL PARTITION 
***i********k** 


♦. VIRTUAL 

♦ . .♦ 
♦. .♦ 
♦ NO 


G1* *♦. 

..•%ib'?I!?"*'* 

*. END + 1 .♦ 
♦. .* 
♦ . . ♦ 
♦ NO 


♦!!! 


♦ 

* 


*l** 

* * 

**** **** 

* 

B5 ♦ 
* 
**** 




ACHKREAL .♦.^ 

. * * ♦ 
.♦ IS 
*. PARTITION 
♦. REAL 
♦, .* 
♦. .♦ 
* YES 



**** 

* * 
.!♦ H1 ♦ 

♦ ♦ 
♦♦*♦ 



**** 

X 

*:t,***Yl1********** 

♦ SET BETURN * 

♦ CODE TO * 

♦ INDICATE * 

♦ VIRTUAL ♦ 

♦ (SEE ♦ J4) ♦ 

:ti:t,*4*itt^*****'**il,ititi 



*****J ^********** 

* * 

* SET BOUNDARY ♦ 

* BOS POINTER * 

* TO VIRTUAL * 

* ORIGIN AIDS * 



♦*♦* 




* * 




♦ K1 ♦.X 








**** 




A RETURN 




( 


*!||««K1 ♦♦♦♦«♦♦♦* 


♦ RET 


BRN * 



)ic«**«H3 ♦♦♦♦♦*♦♦♦♦ 

* SET RETURN * 
♦CODE TO INDICA-^ 
♦TE PARTITION IS^ 

♦ REAL ♦ 
***************** 



.X.. 

X 

**** 

* * 

* K1 ♦ 

* * 
**** 



itc****GH ********** 

♦ SET RETURN ♦ 
♦CODE TO INDICA-* 

.X^ TE PARTITION ♦ 

♦ NOT ALLOCATED ♦ 
( ♦ JH) * 

************** 



***** 



♦ J4 
RETURN CODES: 
= VIRTUAL 
£» = REAL 

8 = PARTITION NOT ALLOCA-nED 
12= OUTSIDE VIRTUAL STORAGE 
16= NO ENTRY FOR PARTITION ID 
20= OUTSIDE VIRTUAL PARTITION 



*************** 
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Chart JH. PDSDM 



PRNT2K 



♦ * 

♦ PF1JT2K * 



**** 

PST0EE14 X 

* ♦ 

* SUPPRESS * 
* SAME-LIKE 

* SilTCH ♦ 

♦ (SEE * B2) * 



4t*«4!*Cl *♦****♦♦** 






FOBMAT 


* 


♦ 


AND PRINT 


* 


* 


ONE 


♦ 


* 


LINE 


* 


***:^^**i^*^f**Hi*1^:^^*0 


♦ *♦♦ 






♦ 


♦ 






* 


D1 *.X 






* 
* 


* 
*** 






PREDOCE X 




*4<4>**D1 ♦♦♦**♦*♦*♦ 


* 








DECBEHENT 




* 


NUMBER CF 




* 


LINES BI 




* 


ONE 




*n 


4,*j|<)t<**^ 


|<4<4c**:)<*** 



LAST * 

LINE 
PEINTEE .* 



* * 

* ilTUEN * 

* ♦ 



F1 *. 

.♦ *. *♦♦* 

NEXT ♦.NO ♦ ♦ 

LINE = .♦. ..,X* BI ♦ 

. CURRENT .♦ X * ♦ 

♦.LINE .♦ . ♦♦♦♦ 



♦ lis 



IS NEXT 
LINI THi 
. LAST 
♦.LINE .* 



♦ G3 
THE SWITCH IS 'OH* ONLI 
WHEN MORE THAN ONE LINE 
IS IDENTICAL TO A 
PREVIOUS LINE AND 'SAME* 
HAS ALREADY BEEN PRINTED 



PSAHESH .♦. 




HI ♦. 


*ifj^2******* 


.* IS *. 


♦ SET SlITCa ♦ 


.♦ SWITCH ♦. NC 


♦ TO SKIP ANT ♦ 


♦. SET TO SKIP .♦ 


,..X+FOLLO«ING IDEN- 


♦ . LINES .♦ 


♦ TICAL LINES ♦ 


*<*!^!l-* 


♦ {SEE ♦H3) ♦ 


♦ YES 




♦ *** 




* ♦ 




♦ J1 ♦.X. 




* ♦ . 




***♦ 




PUPDATE X 


X 


4<4<***J ■\******,lf*if:^f 


*i^:0J2********* 


* * 




♦ GET ADDRESS ♦ 


♦ PRINT LINE 


♦ OF NEXT ♦ 


ADDRESS 


♦ LINE ♦ 


♦ AND WORD 


* ♦ 


'SAME' 


:t<*4t*:|c« *4<4t4' itc *** *** 


4i#:|t*4c:(c*:|<«4<1t«4i«:4>** 


X 


X 


♦♦** 


**♦* 


♦ ♦ 


* * 


♦ D1 ♦ 


♦ J1 ♦ 



INSTRUCTION AT PSAHESW 
IS CHANGED TO A BRANCH 
TO PUPDATE 
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Chart JJ. PDSDM - ITSTDEV and IPDSEND 



* ITSTDEV • 

♦ ♦ 



4i4t*«4> REFBBBHCIS 

* ♦TO JJB«»I 

♦ ♦♦ JBB1 , JCG1 
* * JEH2 



PDS ♦, 
0ISK .* 



CI ♦. 
,*DI?ICB 
♦ FOR 

SfSOOl 
*. TESTED 



» G1 ♦ 



* LCG HSG: 
. X "SISOOO MOT 
♦ ASSIGNED * 

TO DISK" 



***J)2******'*****1' 



♦ CLOSE * 

♦ PDS * 

♦ PILE ♦ 

♦ * 



lOOTEHD X 

**«:4>*C4 ********** 

* CLOSE ♦ 

* OOTPOf * 

* PILE * 

* * 
***************** 



*****l)H ********** 



IT APE 
ITAPE1 X 

*****j^'\********** 

♦ * 

♦ PBEPABB TO * 

♦ OPEN PILE ON ♦ 
TAPE 



****f'\ ********* 

* * 

♦ BETDBN ♦ 

♦ ♦ 
*************** 

**** 

* * 

* 61 ♦... 

♦ * . 
mODPDS* 
IBODOOI X 

*****Q ■\ ********** 

♦ HODIPY DET TYJPl* 

* CODE, BO. OF * 
♦BECS/TBACK AND * 
♦TRACK CAPACITI ♦ 
♦IN DTP BLOCK ♦B2^ 
***************** 



*****^ y ********** 

♦ ♦ 

♦ PBEPABI ♦ 

♦ TO OPEN ♦ 

♦ PILE ON ♦ 

♦ DISK ♦ 
***************** 



****j -{********* 

* * 

♦ RETOBN ♦ 
« * 

*************** 



♦ LCG HSG: 
.X "SlSOOt NOT 
♦ ASSIGNED TO ♦ 
TAPE OB DISK" 

***************** 



♦ E2 
RHETHEB ITAFE OB ITAPE1 
(IHODPS OB IH0D001) IS EXBCOTED 
DEPENDS ON THE CONTENTS OP THE 
INDEX REGISTER R8 LOADED BT THE 
CALLING lOOTINB 



* CLOSE ♦ 

* CONSOLS * 

* PILE ♦ 

* ♦ 
***************** 



*****f>H********** 

♦ ♦ 

♦ CLOSE ♦ 

♦ READER ♦ 

♦ PILE ♦ 

♦ rSEE ♦ E5) * 



♦F!S 
IP READER WAS 
NOi" OPIHEO, 
CONSOLE IS 
CLOSER AGAIN. 



INPUT ON 
. STSIFT 



PLOSH ♦ 

REST OP ♦ 

CARDS ♦ 

*************,*** 



ENDJOB 

****fiH********* 

♦ * 

♦ EOJ ♦ 

♦ ♦ 
*************** 
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LSERV (LAEEL INFORMATION CYLINDEK UlbPJbAX ; 



This program displays on SYSLST the 
contents of the label information cylinder 
of SYSRES. 



The label information contained in the 
different label information cylinder areas 
are selected from the fcllcwing job control 
file definition statement cards: 



The layout of the label information 
cylinder depends on: 



For disk label 



BLEL, EXTENT 
VOL, DLAE, XTENT 



- SYSRES device type 

- The number of partitions defined at 
system generation time. 

The different possible combinations are 
described in Figure 49, 



- For tape label 



TLBL 

VOL, TPLAB 



These cards are read from SYSRDR and the 
inforroaticn is formatted and written on 
SYSRES by job control. 



Device Type 


Track 


Track 
Allocation 


Number of Partitions 








5 


4 


3 


2 1 


2 

CO 

"* 

CO 
CM 


CO 
CO 

S3 


1 


00 


USRLABEL 
- BG 












01 


PARSTD 












02 


USRLABEL 






^ll?^5 


03 


PARSTD 








M 


04 


USRLABEL 

no 








;;.I;:;:viigno 

■■:: ■ :..•••;.•.::.■=:.:.•:•: 

:X:K ..■:•:■.;y?i.;r.^.ft:^L 


05 


PARSTD 








06 


USRLABEL 












07 


PARSTD 






08 


USRLABEL 

FIj. , 






09 


PARSTD 




10 


Standard Labels 
for all partitions 


^ 


11 


■ 


12 


13 


14 


15 


16 


17 


18 




19 


- , 











Figure 49. Label Information Cylinder Layout 
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The format of the label information records 
is described in Figure 50. 



The area in which the records are 
written depends on the user-specified job 
control OPTION statement. 

LSERV is executed by the use of the 
following job control statement from either 
SYSLOG or SYSRDR: 

// EXEC LSERV 

If LSERV runs real, the partition irust have 
at least 8K bytes of real storage 
allocated. 



LSERV assumes that the label information 
cylinder on SYSRES is formatted as 
described in Figure 49 and that the formats 
of the label information records correspond 
to those described in Figure 50. 



If a defined area contains no label 
information records cr only data-secured 
file label information records, a message 
is printed indicating that no records are 
present in this area. 

Otherwise the label inforiraticn records 
(except fcr data-secured files) are 
formatted and printed on SYSIST. Figure 51 
shews a sample output cf LSERV. 
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TAPE 



Key 



Data 



Field 



Length 



1 


File Name 


7 


2 


Not Used 


1 




1 


Same as Key Field 


8 


2 


Not Used 


1 


3 


File Name 


7 


4 


Not Used 


1 


5 


File Identifier 


17 


6 


File Serial Number 


6 


7 


Volume Sequence Number 


4 


8 


File Sequence Number 


4 


9 


Generation Number 


4 


10 


Creation Date 


2 


11 


Expiration Date 


6 


12 


File Security Number 


1 


13 


Block Count 


6 


14 


System Code 


13 


15 


Flag Bytes 


2 



DISK 



Key 



Data 



Field 




Length 


1 


File Name 


7 


2 


Not Used * 


1 



1 


Same as Key Field 


8 


2 


DLBL-Extent Indicator 


1 


3 


File Name 


7 


4 


DA- IS Switch 


1 


5 


File Indentifier 


44 


6 


File Serial Number 


6 


7 


Volume Sequence Number 


2 


8 


Creation Date 


3 


9 


Expiration Date 


3 


10 


Retention Period 


2 


11 


Open Code 


1 


12 


System Code 


13 


13 


Volume Serial Number 


6 


14 


Extent Type 


1 


15 


Extent Sequence Number 


1 


16 


Extent Lower Limit 


4 


17 


Extent Upper Limit 


4 


18 


Logical Unit Address 


2 


19 


2321 Lower Cell 


1 


20 


2321 Upper Cell 


1 




Another extent 
if Dresent for 





DA or IS files 

Note: For sequential disk files, a complete 
block is repeated for each additional extent. 
For direct-access or ISAM files, only fields 
14 through 20 are repeated for each extent. 



Figure 50. Format of the Label Information Records 
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D0S/7S LABEL CYLINDER DISPLAY 

SYSRES VOLUME SERIAL NUMBER - DRV3.0 

BG USER LABELS (TEMPORARY PER PARTITION) TRACK 
NONE 

BG PARTITION STANDARD LABELS (PERMANENT) TRACK 1 
NONE 

F4 USER LABELS (TEMPORARY PER PARTITION) TRACK 2 
NONE 

F4 PARTITION STANDARD LABELS (PERMANENT) TRACK 3 
NONE 

F3 USER LABELS (TEMPORARY PER PARTITION) TRACK 4 
NONE 

F3 PARTITION STANDARD LABELS (PERMANENT) TRACK 5 
NONE 

F2 USER LABELS (TEMPORARY PER PARTITION) TRACK 6 

NONE 

F2 PARTITION STANDARD LABELS (PERMANENT) TRACK 7 
NONE 

Fl USER LABELS (TEMPORARY PER PARTITION) TRACK 8 
NONE 

Fl PARTITION STANDARD LABELS (PERMANENT) TRACK 9 
NONE 
L 

Figure 51. Sample LSERV Output (Part 1 of 2) 



J 
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DOS/VS LABEL CYLINDER DISPLAY 



STANDARD LABELS CALL PARTITIONS- PERMANENT) 

IJSYSRS 

FILE IDENTIFIER 
FILE SERIAL NUMBER 
VOLUME SEQUENCE NUMBER 
CREATION DATE 
EXPIRATION DATE 
FILE TYPE 

EXTENT INFORMATION 

EXTENT SEQUENCE NUMBER 

EXTENT TYPE 

RELATIVE (TO ZERO) START ADDRESS IN TRACKS 

NUMBER OF TRACKS 

SYMBOLIC UNIT 

VOLUME SERIAL NUMBER 

IJSYSCL 

FILE IDENTIFIER 
FILE SERIAL NUMBER 
VOLUME SEQUENCE NUMBER 
CREATION DATE 
EXPIRATION DATE 
FILE TYPE 

EXTENT INFORMATION 

EXTENT SEQUENCE NUMBER 
EXTENT TYPE 
EXTENT LOWER LIMIT 

EXTENT UPPER LIMIT 

SYMBOLIC UNIT 
VOLUME SERIAL NUMBER 

END OF LABEL CYLINDER DISPLAY 



DOS. SYSRES. FILE 

DRV3.0 

01 

OMITTED 

99/365 

SEQUENTIAL 



01 

1 (PRIME DATA) 

0001 

0739 

SYSRES CCB FORMAT 0006 

DRV3.0 



DOS. SYSCLB. FILE 

DRV3.0 

01 

OMITTED 

99/365 

SEQUENTIAL 



01 

1 (PRIME DATA) 

CYLINDER 

HEAD 

CYLINDER 

HEAD 

SYSCLB CCB FORMAT OOOB 

DRV3.0 



037 
00 

068 
19 



Figure 51. Sample LSERV Output (Fart 2 of 2) 
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Chart KA. LSERV (IJELSERV) (Part 1 of 2) 



* * 

* LSESV * 

* ♦ 



:* * 3|i « # B 1 3lc 111 lit * :4i lit i«c 3k * « 

♦ * 

♦ INITIALIZE * 

♦ AND BELOCITE * 

♦ LSEB? * 

♦ ♦ 



:t:****£ "[********** 



;»4t4t4t *** « «* « 4 *« ♦ 4i * 



♦ READ * 

VOLOHE LABIL 
♦ OF SISfiES * 



*«)|c**£; I 3t(*«4t4>4c***!«< 



***** 

♦KB * 
* D1* 



* * 

* D3 *.X 



RBPEBENCES***** 
TO KAC5: * * 
KBB3, KBP1 * ** 



EOFTEST 


.*. 






C5 *. 






* * 


NO 


* 


IN 


. . .* 




STD LABEL 


. 


*« 


AR?A 



* * 



♦ * 



COMRG 
♦GET LINE CODNT ♦ 

♦ ♦AND LAB CYL^ ♦ 

♦ ♦ ADDB ♦ ♦ 

«4<*:|»|t](c*4<********* 



J||9«<4>**F 1 ********** 

♦ * * ♦ 

♦ ♦ ASYSCOP * ♦ 

♦ ♦ DETERMINE ♦ ♦ 

♦ START ADDR OF ♦ 

♦ STD.LAB.AIiEA+ ♦ 
4<«4!**4i4<*««4:****** 



«*i:tc**Gl ♦♦******** 

♦ * 

♦ INIT. RECORD ♦ 

♦ CODNT TO * 

♦ ZERO ♦ 

♦ ♦ 
*]«<*************** 



**«;|]1*** ******%#: 

♦ PRINT ♦ 
PAGE HEADER 
♦ SYSRES VCLOME* 
ID. 



«****j 1 ****♦**♦♦* 

* * 

* I HIT. 10 PRINT * 

* HEADER OP ♦ 

* FIRST LABEL ♦ 

* CYLINDER AREA ♦ 

:ti3|c4>************** 



*%:tcE 3** ********** 

♦ PRINT ♦ 

•NONE" 
,♦ HESSAGE ♦ 

*«:«i4t*** ********** 



**♦* 

* D3 * 

* * 

**** 



BRANCH IF ONE 

LABEL ALREADY 

PRINTED FOR 

THIS AREA 



INCREMENT ♦ 

TRACK CODNT ♦ 

INIT. RECORD ♦ 

COONT TO ZERO ♦ 

;**:|i*«**«:ti3|'****** 



♦G2 

BRANCH IF ANY 

TRACK BOT THE 

FIRST IN STD 

LABFL AREA 



.♦ FI»?ST ♦ 
♦.TRACK OF STD 

♦, AREA .♦ 



*«)•(<; 51k 4i4i*4t******ik 



NOTE 


* 


. YES 


♦ G2 


* 


.♦. . . . 


.♦ 






♦ . . ♦ 




X 


♦ NO 




***** 
*KB ♦ 
♦ B1 + 

* * 
* 






DATAREAD 



.♦ FIRST ♦. YES 
♦.TRACK OF STD ...... 

♦. AREA .♦ 



«3|C*4'*J 3 ********** 

♦ * 

♦ INIT TO PUNT ♦ 

♦ HEADER OF ♦ 

♦ NEXT LABEL ♦ 

♦ CYLINDER AREA ♦ 
«***4:************ 



♦ INIT TO PRINT ♦ 

♦ HEADER OF ♦ 

♦ STANDARD ♦ 

♦ LABEL AREA ♦ 
***************** 



*3k4#«*4t4e3k******** 



♦ PRINT 

•NONE* 
* HESSAGE 

He************** 



♦ PRINT 

•EOJ* 
♦ HESSAGE ♦ 

*4i***4'** ********* 



*«**>icj5********** 



* * 

* * * * 
4c**************** 



*i|i**irs********* 

* * 

* EOJ ♦ 

* * 
*************** 



***** 

♦ KB ♦ 

* B1 + 



i 
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Chart KB. LSERV (IJBLSERV) (Part 2 of 2) 



*:^*i^* BEFEBENCIS 

♦ ♦TO KBB1: 

* *♦ KRG3, KJIK1 



* * 

* B3 * 
♦ *** 



IHCEEHEHT * 

EECOED * 

COONT * 

* 



* READ ONE 
RECORD OF 
* LAB. CYL, * 



*. .* X 

* jjO ***** 

*KA * 
* C5* 
* * 



***** 
*KA * 
♦ B3* 



***** 
*KA * 
* C5* 



♦ D5 

BRANCH IP ANY 

EXTENT BOT THE 

FIRST OP A nnL- 

TI EXTENT PILE 



F3 *. 
.* 
.* ONLY 
ONE 
*. EXTENT 
*. 

*. .* 



ISDAEXTS X 

!|E**4C*Q3**4C* ****** 

* DETERMINE ♦ 

* NOHBEE OF * 

* EXTENTS. ♦ 

* INIT TO * 

* PRINT THEM * 
i|c«*4t******* ****** 



FORMAT AND 
PRINT DASD 
LABEL INFO 



***4i«*4t4<*4<4c 



*#**]|i**]|t*****' 



i|e4ci((*]|i*4c**i|c***4i*** 



* FOBHAT AND 
PRINT TAPE 
* LABEL INFO * 

**]te**** ********** 



* FORMAT AND 

PRINT EXTENT 

* INFORMATION 

4t#4c************** 



.X.. 
X 

*♦** 

* * 

* B1 * 

* * 
**** 
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ESTVQT (ERROR STATISTICS BY TAPE VOLUWE UTILITY PROGRAM) 



ESTVOT is a utility program used to list from either a card reader or frorr SYSLOG. 

(on SYSLST) tape error statistics by volume SYS005 must be assigned to the magnetic 

from the TES history tape created by the tape unit on which the TES history tape 

EREP (Environmental Recording, Editing, and file is mounted. SYSLOG must be assigned 

Printing) program. ESTVUT can be executed tc a 3210, 3215, or equivalent device. 
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Chart LA. ESTVUT - Error Statistics by Tape Vcluire Utility Prograir 



*♦♦♦ 
♦ ♦ 

* A2 * 

* * 
**** 



* * 

* A3 * 

♦ ♦♦* 



* ♦ 

* AH * 



♦**♦ 

* * 

* A5 * 

w * 
**** 



ESTTOT 

* * 

* EST70T * 

* * 



***************** 



*****Q-] ********** 



***************** 



***J)'\************ 

OPEN TAPE 

* IHPDT AND * 
PEINTEH OOTFOT 

* FILES ♦ 

***************** 

**** 

* * 

* E1 *.X. 

* * 
**** 

AGE X 

***'g1************ 

* PRINI * 
HEADINGS ON NEW 

* PAGE * 

***************** 



*****f\********** 

* * 

* SET PAGE * 

* COONTER = 50 ♦ 

* * 

* * 
***************** 

**** 

* * 

* G1 *.X 

* ♦ 
**** 

AD X 

***Q'{ ************ 



***************** 



**** 

* * 

**** 



*****j '^********** 

* MOfE RECORD * 

* FBOH TAPE I/O * 

* ABBA TO TAPE ♦ 

* RECORD AREA ♦ 

* * 
************* **** 



♦ A2 * 

* * 
**** 



* HOVE VOLOKE ♦ 
♦SERIAL TO PRINT* 

* AREA ♦ 

* ♦ 

***************** 



*****^2********** 

* * 
♦UNPACK AND E* 

* DATE TO PRINT * 

* AREA * 

* ♦ 
***************** 



*****Q2********** 

* CONVERT TIME * 

* FROH BINARY * 

* SECONDS TO * 

* HHBHSS * 

* * 
***************** 



*****Q2********** 

* * 
♦UNPACK AND £♦ 

♦ TIME TO PRINT ♦ 

♦ AREA ♦ 

* * 
***************** 



*****f2********^** 
♦CONVRT LA+ 

♦^♦-. ♦_♦-♦«*«♦«♦-♦ 

♦HOVE TEMPORARY ♦ 

♦ READ COUNTER ♦ 

* ♦ 
***************** 



*****Q2********** 

♦CONVRl LA* 
*_♦_♦-.♦_♦_*_♦-*-* 

♦MOVE TEMPORARY * 

♦ WRITE COUNTER * 

* ♦ 
***************** 



*****fl2********** 

♦CONVRT LA* 

*-♦_*-.♦-.♦«♦-♦_♦-♦ 

♦HOVE PERMANENT * 

* READ COUNTER * 

* ♦ 
***************** 



*****j2********** 

♦CONVBT LA* 

*-.♦_♦_♦_*.*-.*_*_* 

♦MOVE PERMANENT * 

* WlITl COUNTER * 

* * 
***************** 



*****^2********** 
♦CONVBT LA* 

* HOT! NOISE * 

* BLOCK COUNTER * 

* ♦ 
***************** 



♦♦♦♦♦j3 ********** 
*C0NVRT2 LA* 

* MOVE ERG ♦ 

* COUNTER * 

* * 
***************** 



*****'Q2********** 

*C0NVRT2 LA* 

*-*^*^*^*^*.*-*^* 

* HOVE CLEANIB * 

* COUNTER * 

* ♦ 
***************** 



*****C3********** 
*C0NVRT2 LA* 

* MOVE TWO BYTE * 
*0P SIO COUNTER * 

* ♦ 
***************** 



*MOVE DENSITY OP* 

* 200 TO PRINT * 

* AREA * 

!*■ 1*1 

***************** 



*****j^H********** 
♦C0NVRT2 LA* 

l|c -.* -* -* _* _♦ «# _* _♦ 

* MOVE BLOCK * 

* LENGTH * 

* * 
***************** 



***2H*********** 

* * 

PRINT DATA 

***************** 



**C^******* 



*********** 



*****-g2********** 


E3 ♦. 


♦CONVERT CHANNEL^ 


.* ♦. 


* AND UNIT AND * 


.* DENSITY *. YES 


♦ MOVE TO PRINT ♦ 


*. CODE LT'38» ...... 


* AREA ♦ 




* * 


'*. ' .♦* 


***************** 


*. .* X 




* NO *♦*♦ 



COUNTER = 


* 


NU 


? .* 






*. .* 






♦ . .♦ 




X 


♦ YES 




**** 

* * 

* G1 ♦ 


X 




* * 


**** 




**** 


* * 






* B1 ♦ 






* * 






**** 







***************** 



*****fiK,********** 



***************** 



***C5* *♦♦*♦♦♦*♦** 

♦ PRINT MESSAGE ♦ 
AND CLOSE PRINT 

PILE * 

*************** 



****j)c;,********* 

♦ * 

♦ EOF * 

♦ * 

*************** 



*****fil,********** 

* * 
*HOVE DENSITY OF* 

♦ 556 TO PRINT ♦ 

♦ AREA ♦ 

* ♦ 
***************** 



*****^^^********** 

* * 
♦MOVE DENSITY OF* 

* 800/1600 TO ♦ 

* PRINT AREA * 

* * 
***************** 



X«C0» 

? 

. ♦ 
.* 



CONVBT 

****PH********* 

* * 

* CONVRT * 

* * 
*************** 



*****QH ********** 

♦ CONVERT ♦ 

♦ ONE-BYTE ♦ 

♦ COUNTER TO ♦ 

♦ DECIMAL ♦ 

♦ * 
***************** 



* ♦ 

* ♦ 
♦UNPACK COUNTER * 

* * 

* * 

***************** 



CONVRT 2 

****'pc^********* 

* * 

* C0NVRT2 * 

* ♦ 
*************** 



*****(;i^********** 

* CONVERT * 

* THO BYTE * 

* COUNTER TO * 

* DECIMAL ♦ 

* * 
***************** 



*****'flp,**^^*-/^***^ 

* * 

* * 
♦UNPACK COUNTER ♦ 

* ♦ 

* ♦ 

***************** 



**** 

* * 

* kH * 

* * 

**** 



*****ill2********** 

* * 

* MOVE DENSITY * 
♦CODE OF 800 TO * 

* PRINT AREA * 

* * 
***************** 



***************** 



♦***K4 ********* 

♦ RETURN TO ♦ 

♦ MAINLINE VIA * 

♦ LINK REGISTER ♦ 
*************** 



**** 

* * 

* A3 * 

* * 
**** 
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EREP_iENVIRONMENTAL_RECORDING^_EDI2ING_4^_ 



EREP provides retrieval support for system 
environmental records created by RMSR. 
These records include error data for a CPU, 
channels, and attached I/O devices, as well 
as data about system events such as volume 
dismount or IPL. For the format of these 
records refer to the DCS/VS Error Recovery 
and Recording Transients FLM listed in the 
Preface. 



EREP processing 



In order tc perforir all the functions of 
the current EREP program, irany phases are 
required that execute in an cverlay 
structure. Figure 52 lists all EREP phases 
and shows the relative position of each 
within the user partiticn. 



EREP provides six types of error 
statistics retrieval. Error statistics iray 
be edited and printed, selectively edited 
and printed by record type, summarized by 
record type, used to create a continuing 
history of system events on a History or 
RDE tape, used to create a history of 
magnetic tape volume reliability on a TES 
history tape, or used to create a system 
reliability summary. 



As long as EREP is active within a 

partition, it will ccntain at least two of 
these phases: EREP, which is always 

resident, and one of the control phases. 



In order tc perforir certain functions, 
the EREP phase, a control phase, a 
processing phase, and possibly a table 
phase may he required. 






Detailed operating information, 
including options available and execution 
procedures, can be found in Section 2~F-3 
of 52S/VS_Serviceability_^ids_and_Debu 
Procedures, GC33-5380. 



EREP__Reguirements 



EREP is executed as a problem program in 
either virtual or real mode, using standard 
job control language. It requires at least 
lOK bytes for execution. EREP alsc 
requires the following device assignments: 

• SYSREC or SYS009 (depending on the 
option to be executed) — Error 
statistics input to EREP 

• SYSLOG -- Communications and/or control 
information input 

• SYSLST — As output 

• SYS009 (depending on option to he 
executed) -- As output 

• SYSIPT (optional) -- Control information 
input 

EREP will use available partition space in 
excess of lOK bytes for all suirirary phases 
except 2715 and RDE. The extra address 
space, if executing in real irode, 
significantly improves performance during 
summarization. 



E^£^^§§ilI3_]^Y_9Eti2ll 



Charts 9-18 show the structure and order of 
execution of EREP phases during the 
prccessing of an EREP cpticn. They 
include, where helpful, a general 
explanaticn of the function cf each phase, 
the type cf phase, (ccntrcl, table, etc.), 
and its relative position in the partition. 
Actual displacements intc the partition may 
be obtained from Figure 53. 



If you wish to examine the phases 
involved in the execution of an EREP 
cpticn, start at: 



Chart 9 -- EDIT or SELECT 

Chart 14 -- SUM (except TES and RDE) 

Chart 15 -- TES SUM 

Chart 16 -- TES (except SUM) 

Chart 17 -- HIST 

Chart 18 -- RDESUM 



Examination of these charts gives you a 
clear understanding cf what EREP dees 
before you refer to the functional charts 
for a particular phase. 
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EREP Phase Functions 
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Charts MA-NL describe the function of EREP 
phases. Included are the input to the 
phase, the output of the phase, and the 
logical steps performed during execution of 
that phase, ?Vssociated with each step is 
the label, or labels, of the subroutine(s) 
required to perforcn that logical step. 
Most EREP table phases contain little or no 
executable code. The description cf the 
operation of these phases has not been 
included in this manual. Scire self- 
explanatory examples of the output of sorre 
of these phases have, however, been 
included for your convenience (see 
Appendix C) . 



Phase Interaction 



EREP control phases perform several general 
functions. They open required devices, 
communicate with the operator, exairine the 
applicable options, call the required 
processing phases or other control phases, 
and provide common subroutines for the 
called processing phases. 



There are two irethods used to pass 
information between EREP phases. 

The most widely used is a coirirunication 
regicn. The EREP coirmunication region is 
part of the EREP phase and is always 
resident in the EREP partition. This 
contains (after EREPMNTR has read and 
checked all available EREP ccntrcl 
statements) all opticns, subcpticns, and 
parameters to be processed, the EREPMNTR 
return address, a description cf SYSREC, 
and areas to store inforrraticn about 
individual error records. 

The EREPEDIT common region is used as a 
ccirrrunication link between EREPEDIT and the 
associated processing phases. It contains 
disk search information, a branch table 
used by the subroutines, and a table of 
pointers used by both EREPEDIT and the 
associated processing phases. 

The second method to pass information 
(used during summarizaticn, selective 
retrieval, and 2715 edit and print) is by 
loading an overlay phase around data 
gathered by the overlaid phase. Data area 
descripticn is accomplished by DSECTs 
within the EREP phases. 



EREP processing phases read SYSREC or 
History/RDE records (via subroutines in a 
control phase) , examine the record type, 
call the applicable table phase if the 
record is of the correct type, and pass 
control to a list processor (usually in the 
control phase) , to process the macros in 
the called table, 

EREP table phases contain a series of 
macros, and some executable code, that 
controls the execution of subroutines to 
edit and write records in the applicable 
format. These macros may also point to DCs 
for headings and descriptors for the 
records. 

If the description of an environmental 
event requires more than one SYSREC or 
History/RDE record, the EREP table phase 
may also cause these additional records to 
be read and rnay call other table phases to 
fully process the event description. 



lEl£_-5isplacements 



EREP is a self-relocating prcgrair that can 
execute in either a real cr virtual 
partition. If EREP runs in a real 
partition, at least lOK bytes cf real 
address area must be allocated to the 
partition. If additional 8K blocks of real 
address area are allocated when summarizing 
(except for 2715 and RDE records), the 
summarizing will be speeded up. This is 
true for real mode execution cf EREP; for 
virtual mode it is not possible to give 
relative performance estimates. 

All displacements in this chart are 
relative to the partition start address in 
an MPS system when tape labels are not 
being used. When tape labels are used, add 
80 bytes (X'50') to all displacements. 
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EREP Phase 



Dis^laceroent (Dec) 



Displac eirent (Hex) 



EREP 

EREPMNTR 

EREPEDIT 

EREPHIST 

EREPSMCP 

EREPEDCP 

EREPSMES 

EREPEDES 

EREPTES 

EREPRDE 

EREPESTR 

EREPESWK 

EREPMCAR 

EREPCCH 

EREPUNIT 

EREPIPL 

EREP2715 

EREPRETV 

EREPESPT 

EREPSMTD* 

EREPSMDA* 

EREPSMUR* 

EREPSMTP* 

EREPSMCR* 

EREPSMDK* 

EREPSMCU* 

EREPSMTl* 

EREPSMDl* 

EREPSMUl* 

EREPSMTR 

EREPEDTD* 

EREPEDDA* 

EREPEDUR* 

EREPEDTP* 

EREPEDCR* 

EREPEDDK 

EREPEDCU* 

EREPEDTl* 

EREPEDXl* 

EREPEDDl* 

EREPEDUl* 

EREPEDTR 

EREPSHRT 

EREPSHRU 

EREP2400 

EREP3420 

EREP3t*10 

EREPUCCM 

EREPDOLD 

EREP3330 

EREP333X 

EREP333Y 

EREP333Z 

EREP33aO 

EREP334X 

EREP33aY 

EREP334Z 

EREPTPEl 

EREPUOLD 

EREP3211 

EREP3500 

EREP3540 

EREPEOD 

EREPADPT 

EREPASTA 

EREPSPCL 



+ 0000 
+ 0200 
+ 0200 
+ 0200 
+ 0200 
+ 0200 
+ 0200 
+ 0200 
+ 0200 
+ 0200 
+ 4088 
+4088 
+ 4376 
+ 4376 
+ 4376 
+ 4376 
+ 4376 
+ 4376 
+ 4376 
+5448+(n- 
+ 5448+(n- 
+5448+(n- 
+ 5448+(n- 
+5448+(n- 
+5448+(n- 
+5448+(n- 
+ 5448+(n- 
+5448+(n- 
+5448+ (n- 
+ 5448 
+5448+(n- 
+5448+(n- 
+5448+(n- 
+5448+(n- 
+ 5448+(n- 
+5448+(n- 
+5448+ (n- 
+5448+(n- 
+5448+ (n- 
+5448+ (n- 
+5448+ (n- 
+ 5448 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 6424 
+ 4482 
+ 4482 
+ 4482 



1)8192 
1)8192 
1)8192 
1)8192 
1)8192 
1)8192 
1) 8192 
1)8192 
1)8192 
1)8192 

1)8192 
1) 8192 
1)8192 
1) 8192 
1)8192 
1) 8192 
1)8192 
1)8192 
1)8192 
1) 8192 
1)8192 



+ 0000 

+00C8 

+ 00C8 

+ 00C8 

+ 00C8 

+00C8 

+ 00C8 

+00C8 

+ 00C8 

+ 00C8 

+ 0FF8 

+ 0FF8 

+1118 

+1118 

+1118 

+1118 

+1118 

+1118 

+1118 

+1548+(n- 

+1548+(n- 

+1548+(n- 

+1548+(n- 

+1548+(n- 

+1548+(n- 

+1548+(n- 

+1548+(n- 

+1548+ (n- 

+1548+ (n- 

+1548 

+1548+(n- 

+1548+(n- 

+1548+(n- 

+1548+ (n- 

+1548+(n- 

+1548+(n- 

+1548+(n- 

+1548+(n- 

+1548+(n-" 

+1548+(n- 

+1548+(n- 

+1548 

+1918 

+1918 

+ 1918 

+1918 

+1918 

+1918 

+ 1918 

+1918 

+ 1918 

+1918 

+ 1918 

+1918 

+1918 

+1918 

+ 1918 

+1918 

+ 1918 

+1918 

+1918 

+1918 

+1918 

+1182 

+ 1182 

+1182 



1)2000 
1)2000 
1)2000 
1)2000 
1)2000 
1)2000 
1)2000 
1)2000 
1)2000 
1)2000 

1)2000 
1)2000 
1)2000 
1)2000 
1)2000 
1)2000 
1)2000 
1)2000 
1)2000 
1)2000 
1)2000 
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EREP Phase 


Disgl- 


EREPCCHC 


+ 6424 


EREPC145 


+ 6424 


EREPlfl5^ 


+ 6424 


EREP145B 


+ 6424 


EREP145C 


+ 6424 


EREPC135 


+ 6424 


EREPM145 


+ 6424 


EREP145D 


+ 6424 


EREPMCRC 


+ 6424 



Dis£laceirent__(Hex). 

+1918 
+ 1918 
+1918 
+ 1918 
+ 1918 
+ 1918 
+1918 
+ 1918 
+1918 



* If thera is sufficient partition space, two or more of these phases rray be leaded 
simultaneously. n indicates the load position relative to the beginning of the partition 
(first, second, etc.). The actual load address, relative to the partition start address, 
is obtained by substituting the load position for n and solving the expression. 
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Figure 52. EREP Table Phases Used for Device Processing (Part 1 of 2) 
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Figure 53. Relative Displacement of EREP Phases (Part 1 of 2> 
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User Parfition 




Figure 53. Relative Displacement of EREP Phases (Part 2 of 2) 
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chart 09. Options EDIT and SELECT: Structure 



f //EXEC EREP J 



EREP 



Tape label area, 
loader, and 
communication 
region 



or// EXEC EREP,REAL[,S!ZE=nK] 




OPTION EDIT 



OPTION SELECT 



EREPMNTR 



EREP option 
processor 




*From Chart 15:EREPTES Entry. 



EREPEDIT I Edit and Selective Retrieval Control: This phase loads edit 

and print processing phases that translate SYSREC records (or SYS009 records 
during selective retrieval) to printable format. 

This routine tests the option table (-OPTION-), creates a load name, and loads 
the appropriate EREP processing program. The processing program uses the sub- 
routines in EREPEDIT to peform the appropriate functions, including I/O. 



EDIT 



q; 




Control Phase, Overlays 
EREPMNTR. See Charts 
MB and MC. 



SELECT 



^ 



EREPESPT I TES Print Program; This phase edits and prints the.TES rec- 

ords# If the edit is by volume serial number, the search addresses are obtained 
from the work tape (created by EREPESWK) on SYS008. If the edit is by device 
address, SYSREC is processed directly. The records are formatted and printed on 



Processing Phase. In the 
EREP partition behind 
EREPEDIT. See Chart MF. 



(Return to ^ 
EREPMNTR J 
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chart 10. Selective Retrieval and Edit Structtjre 



^ 



9 1 EREPEDIT 



EREPRETV 



Selective Retrieval Control: This phase checks the EREP commu- 
nication region for entered parameters, ft then reads SYSREC or the History/RDE 
tape checking for a record of the desired type. When the correct record has been 
read, the required processing program name is created and a subroutine in 
EREPEDIT is used to load the table. When the processing program and the table it 
calls have processed that one record, control is returned to EREPEDIT and to 
EREPRETV. Exit from this phase is to EREPEDIT when EOF is encountered. 



EREPEDIT 



EREPxxxx 



Edit Processing Programs: All EREP edit processing programs are 

similar in function. See Charts 10-12 for individual phases and the EREP tables 
associated with each. 

These phases test the EREP communication region for selective retrieval. If 
SELECT has not been specified, a record is read from SYSREC. The record (read 
or provided by EREPRETV) is tested for type, and the applicable table is loaded. 
The address of the macro list in the table is passed to EREPEDIT, and control is 
given to the list processor (-LISTPROC-) in EREPEDIT. EREPEDIT reads the ma- 
cros that control the execution of subroutines to edit and print the error records. 




Processing phase. In the EREP 
partition behind EREPEDIT. 
This phase is overlayed by 
the applicable edit processing 
program (EREPMCAR, EREPCCH, 
EREPIPL, EREPUNIT, or EREP2715). 
See Chart hAG. 



Processing phase. In the EREP 
partition behind EREPEDIT. 
This phase is overlayed by 
other edit processing 
phases, or by EREPRETV 
during selective retrieval. 
See Charts 10-12 
and MH-MP. 



EREPEDIT 
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Chart 11. Edit Processor and Table Phase Structure (Part 1 of 3) 
See Charts HH and HJ 



f From EREPEDIT j 



EREPMCAR 



MCAR 

Processing 

Phase 



EREPMCRC 



Tabb: Process non- 
log-out portion of 
MCAR records, all 
5 M/1 55-11 and 
M/158 MCAR re- 
cords, and all M/llS 
-H/125 MCAR re- 
cords. This phase 
also causes the 
records it will proc 
ess to be reod. 




115, 125, 



EREPM145 



Process first 
portion of log- 
out records 



EREP145D 



Process remainder 
of log-out 
record 



155-11, 



EREPC125/135 



Process log- 
out records 



EREPCCH 



CCH 

Processing 

Phase 



EREPCCHC 



Table: Process 
independent portion 
of CCH records 
and all M/1 55-1 1 
and M/1 58 CCH 
records. 



EREPC125/135 



Process dependent 
portion of channel 
check record 




EREPIPL 



IPL/EOD 

Processing 

Phase 



EREPEOD 



Table: IPL/EOD 
records. 




ERE PC 145 



EREP145A 



Process remainder 
of selector or 
block-multiplex 
records 



Process common 
portion of 145 rec- 
ord and branch to 
phase that processes 

channel type. 

IMPX 



IFA 



EREP145B 



Process remainder 
of multiplex 
records 



EREP145C 



Processing phases. One 
will be in the EREP partition 
between one of the 
associated tables and 
EREPEDIT. 



Process remainder 
of integrated file 
adapter records 



Table phases: One of 
these phases will be in 
the EREP partition with 
the associated processing 
phase. If execution of 
more than one table is 
indicated, subsequent 
phases will overlay 
preceding phases. 



NO 



NO 




YES 




EOF 



YES 



(Return to ^ 
EREPEDIT J 



(Return to ^ 
EREPEDIT J 
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Chart 12. Edit Processor and Table Phase Structure (Part 2 cf 3) 
See Chart HK 



Processing phase. 
In the E REP partition 
during processing of 
unit check records. 



rFromEREPEDITJ 



K 



Unit Check 
Processing 
Phase 



>- 



Table phases. 
One of these phases will 
be in the EREP partition 
with EREPUNIT, If 
execution of more than 
one phase is indicated, 
subsequent phases will 
overlay the preceding 
phase. 



(Return to \^ 

EREPEDIT t~ 



YES 



EREPSHBT 



Process volume 
dismount and 
end-of-day records 




S HORT ^ Record 
Format= 



Process common 
partions of long 
unit check records 



Tape 



Device Type 

3504, 
321 1 3505,3525 



other 



■< 



EREP3211 



2400 




EREP3420 



Process 3420 SVC 
request or counter 
overflow records 



EREP2400 



Process 2400 SVC 
request or counter 
overflow records 



^ 



EREP3410 



Process 3410 or 
3411 SVC request 
or counter over- 
flow records 



EREPSHRU 



Process MIC R, 
non-3000 series 
printers, punches, 
or readers, 2300 
series DASD, 354Q 
or unsupported 
devices 



3410 
3411 



2400 



1403 
2540 



TP 



3505 
3525 



2311 
2314 



3330 



EREP3420 

Process 3420 
magnetic tape 
records 



EREP2400 



Process 2400 
series magnetic 
tape records 



EREP3410 
Process 3410 or 
341 1 magnetic 
tape records 



EREPUOLD 

Process all other 
reader, punch, 

Brinter, and 
IICR/OCR records 



EREP3540 



Process 3540 

diskette 

records 



EREPTPE1 



Process 

teleprocessing 

records 



EREP3211 



Process 3211 
printer records 



EREPDOLD 



Process 23 11 or 
231 4 disk 
records 



Process 3505 or 
3525 reader and 
punch records 



EREP3330 



Process common 
portion of format 
0-5 records and 
ail format 



EREP333X 



Process dependent 

r)rtion of format 
records and 
part of format 1 



EREP333Y 



Process dependent 

rrtion of format 
. 4, and 5 
records 



EREP333Z 



Process remainder 
of format 1 
record 



EREP3340 



Process common 

Bortion of format 
-5 records and 
?" format Q 



EREP334X 



Process dependent 
portion of format 
2 records and 
part of format 1 



* For format 6 
records only a 
summary out- 
put is provided. 



EREP334Y 



Process dependent 

Portion of format 
, 4, and 5 
records 



EREP334Z 



Process remainder 
of format 1 
record 



<D 



i 
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Chart 13. Edit Processor and Table Phase Structure (Part 3 of .3) 
See Charts HL - HF 



r From EREPEDIT J 



EREPADPT 



Process 2715 

adapter 

records. 



EREP2715 



This phase, in 
addition to the 
functions described 
in Chart 10/ makes 
one full scan of 
SYSREC and ob- 
tains starting and 
ending extents for 
each of the 7 types 
of 2715 records. 
These extents are 
used by the called 
tables to speed 
processing. 



ASTA 



YES 



Q 





Area Station 



SPCL or 
ALL 






Special 
Code 


i 










EREPSPCL 


YES 


Process 2715 
special code 
records. 



o 



EREPASTA 




Process 2715 
area station 
records. 
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chart 14. Suinmary Phases (Ncn-TES) 



[ //EXECEREP*) 



'or// EXEC EREP.REAL .SIZE=nK 



EREP 



EREP loader, label 
area, and 
communication area 



Resident during 
EREP execution. 



OPTION SUfVi 



EREP option 
processor 



Overlayed by called 
EREP control program: 
in this case, EREPSMCP. 



EREPSMCP I 

' ' EREP Summary Control: This phase loads summary transients which perform the summarization. When summarization of more than 

one record type is required, EREPSMCP loads the applicable transient(s) and processes SYSREC: one record type for each execution of EREPSMCP, if 
the mmimum 10K is available; or, in groups - one additional transient being loaded and one additional record type being processed for each additional 8K 
of partition spare available. Record types are processed in the order (left to right) that they appear in this chart. If EREPSMDA, EREPSMTD, or 
EREPSMUR are called, a switch is set to call EREPSMD1, EREPSMT1, or EREPSMUI. EREPSMCP performs all I/O to SYSREC and passes control to 
the applicable transient when a record of the correct type is encountered. When SYSREC has been processed for the loaded transients, the addresses of 
those transients and transient types are passed (via the EREP communication area), along with control, to EREPEDCP via EREP. 



EREPSMTR 



EREPSMDK 



Tape 
(Default) 



EREPSMTP 



TeleprocsMing 



Disk 

(Second phase) 



L 



MICR/OCR 



EREPSMUI 



Unit Record 
(Second phase) 



Tape 
{Second phase) 



EREPEDCP r 

EREP Edit Control: This phase retrieves the transient types and acklresses from the EREP communication area, and loads the 
applicable edit transients over the summarization transients. It also performs ail I/O operations for the edit transients via the list processor (LISTPROC). 
if additional record types are to be processed, EREPSMCP is called via EREP; othervMse, EREPMNTR is called via EREP. 



Diskette 



EREPEDTD 



Tape 



EREPEDDA 



Teleprocessing 



Disk 

(Second phase) 



EREPEDCR 



Overlayed by called 
EREP control program: 
In this case, EREPEDCP. 
See Chart MQ. 



Transient record- 
processors: Overlayed 
by corresponding edit 
processors. See 
Charts MR-MT. 



Overlayed by called 
EREP control program. 
See Chart MU. 



Unit Record 
(Second phase) 



EREPEDT1 



Tape 
(Second phase) 



Tape (Second 
phase) Part 11 



Edit processors. 
See Charts MV-NC. 



(Return to EREPSMcl^ 
[or EREPMNTR J 



^ 
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Chart 15, Option SUM: Structure for TES 



r //EXEC EREP"^ 



^or // EXEC EREP,REAL[,SIZE=nK] 



EREP 



Tape label 

area, loader, and 

communication 

region. 



OPTION TES, SUM 



EREPMNTR 



EREP option 
processor. 



EREPSMES 



TES Summary Phase: This phase checks the available parti- 



tion space, creates a list of error counters by volume serial number for each day 
recording has taken place, or by device address (channel and unit). As each 
record is read, from either SYSREC or the TES history tape, it is placed into the 
error counter list or added to an existing record. If the error counters overflow the 
existing space, the last counter ID is saved in the EREP communication region 
and -SUMSWTH2- is set so that this phase is colled to process the remaining 
records. 



Control Program. Overlays 
> EREPMNTR. See Chart ND. 



EREPEDES I TES Summary Edit Phase: This phase edits and prints the list 

of error counters created by EREPSMES. The number of counters is calculated and 
the type of summary is obtained by testing -SUMSWTH2-. This phase processes a 
group of macros that control the execution of subroutines, which edit and print 
the error counters. 



^ Control Program. Overlays 
EREPSMES. See Chart NE. 



Return to ^ 
EREPMNTR J 
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Chart 16. TES : Print and Tape Output 



OPTION TES 



EREPMNTR 



EREP option 
processor 




(^//EXECEREPM 



I 



EREP 



Tape label area, 
loader, and 
communicafion 
region. 



or //EXEC EREP,REAL[,SIZE=nK] 



Resident 
y during EREP 
execution. 



YES 



r See Chart 14 J 



EREPTES 



\ TES Control: This phase tests the TES parameters in the EREP 

communication region, and loads the correct phase. If 
TES, TAPE and TES, EDIT have both been specified, the TAPE option Is processed 
first, then the EDIT option. This phase remains In main storage with either 
EREPESTR or EREPESWK, and performs ali l/O operations for these phases. When 
all options are processed, control is returned to EREPMNTR. 



TAPE 



EREPESTR 



Create TES Tape: This phase 
edits TES records, blocks the 

records (5 records per block), and creates or updates 

a TES history tape on SYS007. 

When EOF Is encountered on SYSREC, the tape Is 
rewound and control Is returned to EREPTES. 




Control Program. Overlays 
y EREPMNTR 

See Chart NF. 



PRINT, VOL 



EREPESWK 



See 

Chart NG. 
r In main 
storage with 
EREPTES. 



Create TES Work Tape: This 
phase creates a list of TES rec- 
ord search addresses and volume serial numbers on 
SYS008. The list Is sorted by volume serial number 
(the lowest serial number from the earliest day appears 
as the first record, followed by ascending serial num- 
bers for that day). When EOF Is encountered on 
SYSREC, the tape Is rewound and control Is returned, 
via EREPTES, to EREPMNTR. Only one tape volume 
is allowed as output for this phase. 



See Chart NH 
In the EREP 
y partition with 
EREPTES. 



EREPTES 



EREPMNTR 



Call EREPEDIT 



^ 



EREPEDIT 
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chart 17. Option HIST: Structure 



a 



// EXEC EREP 



D 



*or// EXEC EREP,REAL[,SlZE=nK] 



EREP 



EREP Loader^ 
label area, and 
communication 
region. 



OPTION HIST 



EREPMNTR 



EREP option 
processor 



EREPHIST EREP History /RDE Tape Processor: This phase creates or updates 

a History or RDE tape on SYS009 by copying error records from SYSREC. No 
other phases are used and exit is to EREPMNTR to process other options. Note: If 
OPTION HIST is specified and SYSREC processes correctly, OPTION CLEAR 
will be executed. 



C 



Control Program, 
> Overlays EREPMNTR, 
See Chart NJ. 



Return to 
EREPMNTR 



3 
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Chart 18, Option RDESUM: Structure 



C II EXEC EREP^ J *or//EXEC EREP,REAL[,SIZE=nK] 



EREP 



Tape label area, 
leader, and 
communication 
region 



OPTION RDESUM 



EREPMNTR 



EREP option proces 
processor 

I 



EREPRDE I RDE Summary Program : This phase summarizes, edits, and prints information about system 
activity, as previously recorded on the RDE tape, for a period of 1 to 30 days. 
The types of system activity recorded include: 

^ The date, time, reason, and subsystem responsibility for each IPL 
during the specified period. 

• The starting and ending date of the report. 

^ The average run time between IPL and EOD (or IPL and IPL if the 
ROD command was not issued to create an EOD record) for the 
specified period. 

• The number of IPL records that occur in the specified cluster interval. 

• The subsystem responsibility and number of times a subsystem caused 
possible system degradation or system failure. 

Input for this phase is the RDE tape mounted on SYS009 and output is to SYSLST. The OPTION card may be 
entered from SYSLOG or SYSIPT, but control information is entered on SYSLOG in response to prompter 
messages. 



C 



Return to 
EREPMNTR 



3 



Control 

processing 

phase. 

Overlays 

EREPMNTR. 

See charts 

NK and NL. 
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Chart MA. 



EREP: 



Function 



Displace- 
ment 
from 

partition 
start addr. 



108 
112 
116 
118 
123 
128 

145 
149 
152 
152 
154 
157 
157 
162 
163 

167 
167 
170 
172 
172 
173 
179 
183 
191 
199 
201 
209 
212 
213 

276 



Label 
List 



EREPSTRT 



LOADER 
LOADER2 



LOAD NAME 
EREPNAME 

OPTNRETN 

TRSAVE 

TRACKS 

RFONE 

RFCURR 

QUEUE 

SUBSWTH 

COMREGN 

SUMREGN 

SUMPARM 

SUMSWTH 

SUMSWTH2 

SUMCPUID 

SUMSWBYT 

SUMTPCUA 

SELREGN 

SELPARM 

SELSWTH 

SELCMRG 

SEL2715 

COMDATE 

COMTIME 

COMJOB 

COMPROG 

COMCUA 

COMTERM 

COMCPU 

COMDEV 

COMVOL 

COMEND 



r // EXEC EREP,REAL[,SlZE=nK] 
( //EXEC EREP* J 



Label Area: 80 Bytes - Reserved for use by LIOCS 
during history or RDE tape processing 



EREP Loader: 28 Bytes - 

1. Set register to -COMEND-. CEntry for loading EREP control program.] 

2. Set the load name address in register 1. 

£Entry for loading any phase except control program.] 

3. SVC 4, LOAD. 

EREP _ - 

MNTR LThis label is overlaid to call subsequent phases.] 



EREP Communication Region: 168 Bytes 



4 Bytes 

4 Bytes 

2 Bytes 

5 Bytes 
5 Bytes 

16 Bytes 

1 Byte 

4 Bytes 

3 Bytes 

2 Bytes 

3 Bytes 

5 Bytes 

1 Byte 

2 Bytes 

2 Bytes 

3 Bytes 
2 Bytes 

1 Byte 

6 Bytes 

4 Bytes 
8 Bytes 
8 Bytes 

2 Bytes 
8 Bytes 

3 Bytes 
1 Byte 
6 Bytes 

57 Bytes 



[Return address to EREPMNTR.] 
,Save area for 2715 address.] 
[SYSREC cylinder/address.] 
Jirst SYSREC record address.] 
.Current SYSREC record address.] 
,EREP option queue.] 
.Reserved.] 

.Option parameter switches.] 
General communlcatlonsj 
^escribes the 15-byte ajmmary area.] 
.Summary parameter switches.] 
.Summary options.] 
.Second byte of summary options.] 
^Summary CPU ID.] 
.Summary Switches] 
JP Line done.] 
.Reserved.] 

.Describes the 52-byte selective retrieval area.] 
.Select parameter switches.] 
.Record type switches.] 
.Describes the 47-byte selection area.] 
"2715 switches.] 

.Time.] 
Job name.] 
Program name.] 

;cuA.] 

.Terminal name.] 

CPU serial number.] 

JDevlce type.] 

.Volume serial number.l 

.Reserved.] 

Control program load address.] 



1 



SVC 4 
Load Phase at 
-COMEND- 



>EREP 
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Chart MB. EREPMNIR: Function (Part 1 of 2) 



PROCESS 



INPUT 



SYSLOG: 
Response to message 



SYSLOG or SYSIPT: 
EREP options 



1. Establish base registers, relocate CCBs and CCWs, and 
OPENR SYSLST. 

2. Query operator for option statement source. If an invalid 
source is specified, issue error message and reissue option 
source message. i . i 



3. If N (None) is the response, go to step (|§) . 

4. Set to read from the option source device (SYSLOG fcySLOG Only^ 
for console input, SYSIPT for card input). " " ' " ' "■" 



5. Read option input and check syntax by scanning -OPTNTBLE-. 
If EOF, go to step @ . 

6. Check for suboptions and post them in the appropriate tables 

in the EREP communication region. ■ ■. :■ ' "- ■ 



7. If errors are detected in steps (§) or (6) , iss 
error message. ' ■. ' ■ 



8. Post the option in -QUEUE- in the EREP communications region 
and set default parameters for previous option. ■' " ■' "■» ' 



9. Read statement. If option, go to step @ , If parameter, check 
syntax in subroutines. !f EOF and first execution, go to step \|8) 
If EOF, subsequent execution, and parameters entered, go to 
step (25) . If EOF, syibsequent execution, and no parameters 
entered, go to step u.2d . 



Subroutines; 



10. Check TIME parameter. 

10a. Check names (job, program, terminal) or volume 
serial number. 

11. Check DATE parameter, 

1 la. Check device address or CPU serial number, 

12. Check DEVICE parameter. 
12a. Check FORMAT parameter. 

13. Check TYPE or GROUP parameter. 

14. Check CPU parameter for SUM. 

15. Check 2715 parameter. 



^ 



OUTPUT 



3E11D ENTER OPTION 
SOURCE, C = CARD, 
S = CONSOLE, 
N=NONE 

3E25I INVALID 
RESPONSE 

3E14A ENTER OPTION 

Set suboption switches 
at -SUBSWTH-, set 
-COMREGN-, set 
-SUMPARM- and 
-SUMSWTH-, or set 
-SELPARM- and 
-SELSWTH-. 

3E12I INVALID OPTION 

Build option table at 
-QUEUE- and set 
parameters. 



LABEL LIST 


LABEL 


STEP 


START 


1 


RELOC 




GIVSRCE 


2 




3 


INITLOG 


4 


READOPTN 


5 


CHKKEY 




SCANBLK 




CHEKMAIN 




SUBCHEK 


6 




7 


SETRESET 


8 


PARMCHK 


9 


TIME 


10 


PARMCHAR 


10a 


DATE 


n 


PARMHEX 


Ua 


DEVICE 


12 


FORMAT 


12a 


TYPE 


13 


CPU 


14 


PARM2715 


15 



I 
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Chart MC. EREPMNTR: Function (Part 2 of 2) 



INPUT 



The SYSREC header 
label. 



PROCESS 



16. If errors are detected in step 9-15, issue error message. ■ ' " " ' ' ■■ ' 

17. Go to step®. 

18. Set default options if no options were specified, queue the 
EDIT option if only CLEAR was specified, or queue the CLEAR 
option if HIST and not CLEAR was specified. ' ■ ' ■ ' 



Sort options in priority order (CLEAR last in -QUEUE-). 

If SYSREC is to be used, suppress error recording, OPENR 
SYSREC, and read the header record to obtain SYSREC 
extents. 



21. If an l/O error occurs or the header record is invalid, issue 
an error message and go to step (2^ . —-—---—--—---——— 
Otherwise, go to step (^ . 

22. If input from SYSLOG and SELECT or SUM, go to step ® . 
If TES, process any suboptions. 

22a. Get next option from -QUEUE-. 

23. If there are no more options, go to step (2o) . 

24. If CLEAR is to be executed, go to step @ . 

25. Set the return address in the EREP communications region 

to step 22. Set the phase name to be called in the loader and 
issue the option in progress message. ' ■ ' 



26. Branch to the loader at -LOADER-. 

27. Rewrite the SYSREC header label. If an l/O error occurs, 
issue an error message. ' ' ' , i , 



28. Enable recording on SYSREC, then issue SVC 14, EOJ. 



OUTPUT 



3E04I INVALID 
PARAMETER 

Set default options in 
-QUEUE-. 

3E261 INVALID SYSREC 
FILE HEADER RECORD 

3E27I EDITING IN 
PROGRESS 

3E28I HISTORY IN 
PROGRESS 

3E29I CLEAR IN 
PROGRESS 

3E01I SUMMARY IN 
PROGRESS 

3E02I TES IN 
PROGRESS 

3E06I RETRIEVAL 
IN PROGRESS 

3E26I INVALID SYSREC 
FILE HEADER RECORD 



LABEL LIST | 


LABEL 


STEP 


PARMCHK 


16 




17 


DEFAULT 


18 


SORTER 


19 


OPENCKER 


20 


OPENFILE 




PREPROC 


21 


OPTION 


22 


OPTIONl 


23 




24 


OPTION2 


25 


OPTION3 




OPTION4 


26 


CLRFILE 


27 


EOJ 


28 
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Chart lyiD. EREPEDIT: Function 





PROCESS 


INPUT 




1. Establish base registers, reloccite CCBs end CCWs, set for 
return to EREPMNTR, set SYSREC extents, and OPENR SYSLST. 

2. If a TES edit is to be done, set to load EREPESPT. 

3. If selective retrieval is to be done, check for tape input and 
OPENR SYS009, if present, then set to load EREPRETV. 

4. If EDIT is to be performed, check for extents associated with 
the next record type to be processed (in the table at KEYTBL). 
If the extents exist, or if this is the initial entry to EREPEDIT, 
create the phosename of the next or first transient, 

5. Load the transient, and branch to the transient entry point. 


The contents of -QUEUE- 
in the EREP communica- 


























Subroutines: Are used to format SYSREC records. Their 
order of execution is controlled by the table called by 
the transient. See Chart ME for the subroutines. 




6. When processing is complete, any mounted tape is rewound 
and unloaded, and control is returned to EREPMNTR via EREP. 



OUTPUT 



3E10I I/O ERROR ON 
RECORDER FILE AT 
cchhr 

3E22I INCOMPLETE 
DATA RECORDING AT 
TIME OF ERROR 

3E1I I/O ERROR ON 
HISTORY/RDE FILE 



LABEL LIST | 


LABEL 


STEP 


BEGIN 


1 


INITIAL 






2 




3 




4 


EDIT 




LOADPHAS 


5 


LOADOPTN 


6 
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chart ME. EREPEDIT: Subroutines 



(From called \ 
processing progrony 



PROCESS 



INPUT 



The macros contained in 
the loaded EREP table 
(e.g., EREPC135, 
or EREP2400) 



Messages contained in 
the EREP Table modules 

SYSREC or 
HISTORY/RDE records 




1. Process macro in table currently loaded, set the branch at -BR- 

twith the table entry at -OPLST- indicated by the macro, and 
branch to a subroutine. i ' 



p. 
q. 



^sdate macro pointer. I 

Point to start of output area (-OUTPUT-) 

Fill output area with blanks. 

Fill output area with asterisks. 

Unpack a record field and move it to the output area.-^" 

Move a field to the output area, if It is not equal to "^" 

zero. 

Edit the date and move it to the output area. 

Move a DC from the EREP table to the output area. -^- 

Move the DOS level to the output area. 

Edit the time and move it to the output area. 

Increment the output pointer. 

Edit bits and move condition indicators (character -^" 

ones or zeros) to the output area. 

Edit a half byte or more, and move to output area. -<" 

Eject to a new page. 

Edit and print records in dump format. 

Display a register. 

Load an EREP table. 

Edit a hex counter to decimal and move to the 

output area. 

Read a record from SYSREC into -INPUT- and update - 

record pointers. If this is the first scan of SYSREC 

for EDIT, starting and ending extents are saved in 

-KEYTBL- for all record types encountered. This 

expedites later processing of SYSREC. 

Read a record from a HISTORY/RDE tope. 

Print the contents of the output area (-OUTPUT-) 

Exit to an external routine. 



OUTPUT 



All listings for EDIT, 
TES EDIT, or 
SELective retrieval. 



LABEL LIST | 


LABEL 


STEP 


LISTPRO 


1 


LSTRTN 


a. 


BACK 


b. 


BLANKS 


c. 


ASTRK 


d. 


MOVEHEX 


e. 


NONZERO 


f. 


DATE 


g. 


MOVECOM 


h. 


DOSLEVEL 


i. 


TIME 


{. 


INDEX 


k. 


EDITBITS 


1. 


UNPKHEX 


m. 


CNTROL 


n. 


DUMP 


o. 


MOVREG 


p. 


LOAD 


q. 


MVCCTR 


r. 


READLOG 


s. 


READ 




READISK 




EXNTPROC 




READLOG 


t. 


READ 




TAPEREAD 




PRINT 


u. 


EXIT 


V. 
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Chart MF. 



INPUT 



EREPESPT: 



Function 



TES record addresses on 
SYS008 (created by 
EREPESWK) 



TES records from 
SYSREC 



PROCESS 



r 



1. Establish base registers, relocate CCBs and CCWs, and print 
page heading. 

2. Read a block from SYS008 (TES record addresses). 

3. Check for end of addresses on SYS009. If there are no more 
addresses^ rewind/unload the tape and return to EREPMNTR. 

4. Put search address in disk CCW, and read a TES record from 
SYSREC. 

5. Format the TES record into the output area, and add the proper 
subheadings. 



6. Print the TES record and perform any ■" .„ . , 

necessary page skipping and heading operations. 

7. Point to the next TES search address, and return to step (4) . 



OUTPUT 



Formatted TES records 



LABEL LIST | 


LABEL 


STEP 


INITPG 

BEGIN 

RDTPE 

RDDISK 

WIND 

CONTINUE 

FORMAT 

DVCK 

LASTLST 

MODN 

LSTFILD 

SKPG 

RESET 


1 

2 
3 

4 
5 

6 
7 
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chart MG, EREPRETV: Function 



PROCESS 



INPUT 




1. 
2. 


Establish addressability and check for first or subsequent 
execution. If subsequent execution, go to step(3) . 




OUTPUT 


Selective retrieval 
parameters from the EREP 








Table of subroutine 
addresses in EREPEDIT 
at -PARMSUBS-. 






by setting EREPRETV subroutine addresses in -PARMSUBS- 
in the EREPEDIT communications region (-EDITCOM-). 










SYSREC or History tape 


. 


3. 
4. 


Read a record from SYSREC or the History tape using the 
-READ- subroutine in EREPEDIT. If EOV or EOF is 
encountered, return to -EDIT- in EREPEDIT. 

Check if this is a data set (multiple records) describing one 
error or check if an I/O error occurred. If so, return to 
step®. 








■ 




















5. 


Form processing program name for type of record reod, and 
. check if this record is to be processed by BALs using addresses 
created in step Q) . If not, return to step @ . 






Subroutines: 








6. Check date or time of record. 








7. Check CPU used at time of failure. 








8. Check program used at time of failure. 








9. Check job name at time of failure. 








10. Check volume ID at time of failure. 








11. Check device type or terminal type. 








12. Check device address. 








13. Check for a 2715 miscellaneous data record. 






14. 


Load the applicable processing program. 





LABEL LIST | 


LABEL 


STEP 


IJBERETV 


1 


BUILDTBL 




SHIFTSET 


2 


SELECT 


3 


SELINCP 


4 


RTRVLP2 


5 


PDATE 


6 


PTIME 




PCPU 


7 


PROGRAM 


8 


PJOB 


9 


VOLID 


10 


PDVTYP 


n 


PTERM 




PCUA 


12 


P2715 


13 


GETPHAS 


14 



f' 
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Chart MH, EREPiyiC?^R and EREPCCH: 



Function 



PROCESS 



INPUT 



Error records from 
SYSREC. 



1. Establish base registers and set up table area. 

2. If selective retrieval is being done, go to step (s) . 

3. Set the return address to step (§) . 

4. Read a record using the -READ- subroutine in EREPEDIT. 
If EOF, return to -EDIT- in EREPEDIT. 

5. If this is not an MCAR or CCH record, and the first (if 
multiple) records define the error, or an I/O error occurred, 
go to step (J) . 

6. Skip to a new page and test if the correct table is in main 
storage. If not, load the correct table; either EREPMCRC or 
EREPCCHC. 

7. Load the list pointer and go to -LISTPROC- in 
EREPEDIT. 



8. If the EOF switch is on, return to -EDIT- in EREPEDIT. 

9. If an incomplete data set was encountered during processing 
with one of the called tables, go to step (s) . Otherwise, go 
to step ® . 



OUTPUT 



The address of the 
formatting list in the 
called toble. 



LABEL LIST | 


EREPMCAR I 


EREPCCH 


LABEL 


STEP 


LABEL 


UBEMCAR 


1 
2 


IJBECCH 


MCARREAD 


3 
4 
5 
6 
7 
8 
9 


CCHREAD 


MCARPART 
MCARNDX 
MCARRTRN 


CCHPART 
CCHNDX 
CCHRTRN 
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chart MJ. EREPIPL: Function 



PROCESS 



INPUT 



Error records from 
SYSREC or 
History/RDE tape - 



L 



1. Establish base registers and set up table area. 

2. Load EREPEOD (IPiyEOD Table). 

3. If selective edit, go to step Q) . 

4. Set return from table to step (9) . 

5. Read a record from SYSREC. If EOF, go to -EDIT- in 
EREPEDIT, 

6. If the record is not IPL or EOD, or if an I/O error occurred^ 
go to step (5) . 

7. If this is the first record to be edited, the page is full, or 
this is selective retrieval, skip to a new page. 

8. Load the list pointer and go to -LISTPROC- 

in EREPEDIT. 



9. If EOF is encountered, go to -EDIT- in EREPEDIT. Otherwise, 
go to step (5) . 



OUTPUT 



The address of the for- 
matting list in EREPEOD. 



LABEL LIST | 


LABEL 


STEP 


IJBEIPL 


1 




2 




3 




4 


IPLREAD 


5 




6 


IPLPAGE 


7 


IPLNDX 


8 


IPLRTRN 


9 
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:hart MK. 



EREPUNIT: 



Function 



PROCESS 



INPUT 



Error records from 
SYSREC. 



A particular error 
record from 
EREPRETV. 



A 3420 
error record - 



" Return to this routine from 
on EREP table Is to the 
label -UNCKRTRN- which 
then branches to steps 3, 
4, or 1 1 depending on the 
status of processing. 



1. Establish base registers and table area. * Note 

2. If selective retrieval is being done, go to step Qo) . 

2a. Set phase load addresses In phase load table to use available 
main storage. 

3. Read a record from SYSREC. If EOV, go to step @ . 

4. If this Is not a unit check or 3211 MDR record, or the first 
of multiple records that define the error, return to step (3) . 

5. Search -DEVTABLE- for supported device type records and 
pick up group code. 

6. If the record is for the device group being processed, go 
to step © . 

7. If this is not the first scan of SYSREC, go to step (5) . 

8. Set the search parameter (high or low extent) of the applicable 
device group In -EXTNTBLE- and go to step® . 

9. If the record does not contain the same channel/unit address 
as the one being processed, go to step (3) . 

10. Test the phase load table to see if the needed phase is in main 
storage. If not, load the phase in the first free area, pointed 
to by the phase load table, or overlay the lowest priority phase 
In main storage. Set the list pointer and branch to 
-LISTPROC- in EREPEDIT. 



11. If there are more channel/units to process, initialize to 
process next address and go to step (5) . 

12. If there are more device groups to process, initialize to 
process the next group and go to step (5) . 

13. Return to EREPEDIT at -EDIT-, 

14. If the entry Is to process TU-TCU serial 
information for 3420 tape units, branch to 
-LISTPROC- after completion 



OUTPUT 



The address of the 
formatting list in 
EREP3211, EREPSHRT, 
or EREPUCCM 

Edited serial 
numbers for TU 
and TCU 



LABEL LIST | 


LABEL 


STEP 


IJBEUNIT 

UNCKRTRN 

IJBEUNIT 

UNCKREAD 

UNCKSKIP 

SEARCH 

EXNTlPROC 

GROUPCK 

BRPROC 

SETEXTNT 

BRPROC20 

RCDPRO 

EOFRTN 

NXTGRP 

LOOP 


1 

2 

3 
4 
5 
6 

7 
8 
9 
10 
11 
12 
13 
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chart ML. EREP2715: Function 



PROCESS 



INPUT 



Error records from 
SYSREC. 



A particular 2715 error 
record from EREPRETV - 



1. Establish base registers, initialize pointers and switches, and 
the high/low extent table at -EXTENTS-. 

2. If this is selective retrieval, go to step (t) . 

3. Read a record from SYSREC. If EOF encountered, go to step (7). 

4. If the record is not 2715, an unrecoverable I/O error occurred, 
or this is a padded record at the end of a data set, go to 
step®. 

5. Test the type of 2715 record; set the lov^ extent if it is the first 
one encountered, or the high extent. The extents are in a list 

at -EXTENT-. 



6. Test to see what portion of the record has been processed. If it 
has all been processed, go to step (S) ; if not, go to step (s) . 

7. If this is selective retrieval, load the appropriate table. If 
not, EREPADPT is loaded first. 



OUTPUT 



SYSREC starting ^nd 
ending addresses of the 7 
types of 2715 error records 
in main storage. 



LABEL LIST | 


LABEL 


STEP 


START 


1 


HERE 




HILOSET 






2 


SETXTENT 


3 




4 


ADPTDISK 


5 


AREASTAT 




ADPT2740 




ADPT2790 




ADPTMPX 




ADPTBSC 




SPECODE 




NEXTRCRD 


6 


TRANLOAD 


7 


LOAD IT 
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Chart MM. EREPADPT: 



Function 



PROCESS 



INPUT 



Error records from 
SYSREC 



A particular error record 
from EREPRETV. 



L Establish base registers and initialize pointers and switches. 

2. If selective retrieval was specified, go to step(5) . 

3. Read a record from SYSREC. 

4. If the record is not for 2715, return to step(3) . 

5. Loop through the record looking for one type of adapter record 
on each pass of SYSREC (1. Disk adpt., 2. 2790 adpt., 3. MPX 
adpt., 4. 2740 adpt., 5. B§C adpt.). When all records of all types 
are processed, go to step (t) . 

6. Edit and print the error record for the adapter type currently 
being processed. ' •"■ ' ' ■ " "■ ' ' ' ' ■ - • ' 



7. If there are special code records to be processed, load 
EREPSPCL. 

8. If there are area station records to be processed, load EREPASTA. 

9. Exit to EREPEDIT. 



OUTPUT 



Adapter error records by 
type from SYSREC s 

1. Disk odapter records, 

2. 2790, 3. MPX, 
4. 2740, 5. BSC. 



LABEL LIST | 


LABEL 


STEP 


START 
INIT 

RECREAD 

RDERRCK 

DSKERROR 

CTRINCR 

CK2790 

CKMPX 

CK2740 

CKBSC 

NEWPG 

ADPTHD 

EDITMORE 


2 
3 

4 
5 

6 

7 
8 
9 
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chart MN, EREPSPCL: Function 



PROCESS 



INPUT 



Error records from 
SYSREC. 



A particular error 
record from EREPRETV.- 



1. fotoblish base registers. 

2. Set search extents and clear work area. 

3. If selective retrieval, go to step @ . 

4. Read a record from SYSREC. If EOF is encountered and there 
are more records to read, go to step (2); otherwise, go to 
step®. 

5. If it is not a 2715 record, go to step (a) . 

6. Loop through 2715 record looking for a valid special code 
record with a valid area station number. If there are no 
valid records, or all 4-byte error records are done, go to 
step © . 

7. Sort and print the 2715 special records on SYSLST. 

8. Go to step © . 

9. If there are area station records to be processed, load 
EREPASTA; otherwise, branch to EREPEDIT. 



OUTPUT 



Special code 2715 error 
records, sorted by area 
station addr. , channel/ 
unit addr. , and request 
code, on SYSREC. 



LABEL LIST | 


LABEL 


5^gp 


START 


1 


READREC 


2 




3 


READRCRD 


4 


CK2715ID 


5 


NEXTRCRD 


6 


CKDONE 


7 


PRINTIT 




COMPAS 




COMCUA 




PRNTDATA 




NEXTRC 


8 


CKASTAT 


9 
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Chart MP. EREPASTA: Function 



PROCESS 



INPUT 



Error records from 
SYSREC 



A particular error record 
from EREPRETV 



1. Establish base registers. 

2. Set search addresses, clear work area. If this is selective 
retrieval, go to step @ . 

3. Read a record from SYSREC. If EOF is encountered and there are 
more area stations to process, go to step (2); otherwise, go to 
step®. 

4. If this is not a 2715 record, return to step (S) . 

5. Loop through 2715 record looking for unprocessed area station 
records. If there are no valid area station records or all records 
have been processed, go to step (3) . 



6. Sort and print the area station records on SYSLST. 

7. Go to step (5) . 

8. Branch to EREPEDIT. 



OUTPUT 



Listing of 2715 area 
station records, sorted 
by area station and 
device address, on 
SYSLST. 



LABEL LIST | 


LABEL 


STEP 


START 


1 


READRCRD 


2 


RDREC 


3 


CK27151D 


4 


NEXTRCRD 


5 


SAVEDATA 


6 


PRINTOUT 




PRNTDATA 




NEXTRC 


7 


EXIT 


8 



1 
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Chart MQ, EREPSMCP: Function 



PROCESS 



INPUT 



The parameters In the 
EREP communications 
region (-SUMREGN-)- 



SYSREC records • 



1. Establish base register, relocate CCBs and CCWs, and set 
EREP to call EREPEDCP. 

2. Test -SUAASWTH- for options. If 2715 is to be summarized, 
load EREPSMTR and branch to the transient when a record 
is encountered. * If 2715 is not specified or has been 
processed, load as many options as will fit in the partition. 



3. Read a record and test for a valid record type - 



(unit check, TP, misc., MCAR, orCCH). If none 
of these, read another record. 

4. If the record read was unit check, test -DVCTABLE- 
for a valid device type. If the type is invalid, return 
to step (3) . 

5. If the transient, associated with the record just read, 

is in core, branch to that routine via -COUNT-. Return 
from the transient is to this routine, then to step (s) . 

6. When the last SYSREC record has been processed, branch 
to EREP to load EREPEDCP. 



OUTPUT 



3E10I I/O ERROR ON 
RECORDER FILE AT 
cchhr 



LABEL LIST ] 


LABEL 


STEP 


SUMSTART 


1 


OPTNNODA 


2 


CLEARCTR 




OPTNFND 




SCAN 


3 


UPHDCYL 




ERROR 




DVCSCAN 


4 


COUNT 


5 


EDITLOAD 


6 



*Note: All 2715 addresses are processed, with 
multiple executions of EREPSMCP and EREPEDCP, 
if necessary, before other options are processed. 
2715 summary will always use lOK, even if 
more room is available. 
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Chart MR, 



EREPSMTR t Function 



PROCESS 



INPUT 



2715 SYSREC records 
provided by EREPSMCP.- 



1. Establish base registers ard set lowest record to be processed. 

2. Save channel/unit address, 2715 ID, area station and device 
address. Note; If all records on SYSREC have been processed, 
EREPSMCP will not return to this phase. 

3. If this record has a valid error code, go to step @ . 

4. Point to next error record. If ail records from the current 
SYSREC read have been processed, branch to EREPSMCP 
at -SCAN- to read next record. 

5. Go to step (2). 

6. Check If this record is processed. If so, go to step (4) . 

7. Sort the current record into the list of 2715 records 

that starts at EREPSMCP end. 



8. If a record already exists in the list with the same ID, 
add the error counters from the new record to the totals 
in the existing error record. ' ■ ' ■ 



9. If the list space is exceeded, set -SUMSWTH- 
to request another execution of EREPSMTR and 
save the 'ast ID combination in -TRSAVE-^ In 
the EREP communication region. ■ 



10. Return to step . 



OUTPUT 



List of summarized 2715 
records in main storage. 
(In the 3400 bytes 
preceding this phase. ) 

Set -SUMSWTH- and 
-TRSAVE- to indicate 
additional scan of 
SYSREC required to 
process all 2715 records. 



LABEL LIST | 


UBEl 


STEP 


START 


1 


BUILDID 


2 




3 


UPDRCTPR 


4 




5 


STRTADDR 


6 


GPACTIVE 


7 


UPDATCTR 


8 


SETNLCOM 


9 


SETSCNSW 






10 
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chart MS- 



EREPSM 



TD, DA, UR, CR, DK, CQ, Dl, Tl, and Uls Function 



INPUT 



SYSREC records for 
the devfces supported 
by this phase. 



PROCESS 



1. Set base register. 

2. Get device type and set the list pointer. 

3. Set device ID, date, and counter space. 

4. If there is no space left to add additional counters, exit to 
EREPSMCP to read the next record. 

5. Test for an ID match in the counter list. If there is a match, 
update the existing counter. If not, add this entry to the 
end of the list. ■ 



6. Go read another record via -SCAN- in EREPSMCP, 



OUTPUT 



List of summarized error 
records, by channel/unit 
address, in main storage. 
(This list is in the 3400 
bytes preceding this 
phase. ) 



LABEL LIST ' 


LABEL 


STEP 


SMxxSTRT* 


1 


DVCSCAN 


2 


DVCSUPRT 


3 


CTRLOC 


4 




5 


UPDTLOOP 




UPDTFWRD 




UPDTWRTN 


6 


* XX is the same as 


the last two letters 


of the phasename. 
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Chart MT. EREPSMTP: Function 



PROCESS 



INPUT 



Non-2715 teleprocessing 
records from SYSREC via 
-SCAN- in EREPSMCP — 



1. Establish base registers, build record ID, and point to date. 

2. If this record was processed on a previous pass, return to 
-SCAN- in EREPSMCP to read another record. 

3. Set date. 

4. Scan the counter list for an entry with the 

same ID. If there is, update the counters "■ ' ' ■■ ■ ' 

and return to -SCAN- in EREPSMCP to read 
another record. 

5. If the counter list does not contain a match 
for the record read, sort the new record 
into the list. ■" ' •■ ' ' "" ■"" ■ ' 



6. If the counter list overflows, set -SUMSWTH- to recall 
EREPSMTP to process the remaining records. 

7. Branch to -SCAN- in EREPSMCP. 



OUTPUT 



Sorted list of summarized 
non-2715 teleprocessing 
records in main storage. 
(This list is in the 3400 
bytes preceding this 
phase. ) 



LABEL LIST | 


LABEL 


STEP 


SMTPSTRT 


1 




2 


DATEOO 


3 


SCANOO 


4 


CNT05 




UPDT 




UPDTHWNO 




UPDTFWRD 




VUPDT 




SCANOO 


5 


SCAN20 




MOVE 




CNTOO 




UPDT 




UPDTHWNO 




UPDTFWRD 




VUPDT 


6 
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chart MU. EREPEDCP: Function 



PROCESS 









1. Establish base registers and OPENR SYSLST. 




INPUT 






2. Point to all load addresses that previously contained called 
summary processing phases. 

3. Pick up first (next) address to load edit phase. If there are no 
remaining addresses, set to return to EREPSMCP to process 
additional options or to EREPMNTR if all options have been 
processed. 




The load addresses left 
in the EREP partition by 

CDCpCkArP 








The accumulated error 
records left in the 




summary processing 

phase areas of the 

EREP DartStinn __i__ 






4. Set return, from the transient, to step (3) , then load and branch 
to an edit phase. 










Subroutines: Used by the called processing phase 








5. Process a macro in the called processing phase, set the 
branch at -BR- with the table entry at -OPLST- indicated 
by the macro, and branch to a subroutine. 






6. Update the macro pointer. 








7. Point to start of output are^i (-OUTPUT-). 








8. Fill output area with blanks. 








9. Fill output area with asterisks. 








10. AAove a DC from the processing phase to the output area. 
















12. Exit to an external routine. 








13. Increment output pointer. 








14. Eject to a new page. 










15. Edit a hexadecimal counter to decimal and put in output area. 





OUTPUT 



All summary listings. 



LABEL LIST | 


LABEL 


STEP 


EDCPSTRT 


1 


EDIT05 


2 


EDIT10 


3 


EDITLOO 


4 


LISTPRO 


5 


LSTRTN 


6 


BACK 


7 


BUNKS 


8 


ASTRK 


9 


MOVECOM 


10 


PRINT 


11 


PRROUT 




EXIT 


12 


INDEX 


13 


CNTROL 


14 


NEWPAGE 




MVCCTR 


15 
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chart MV. EREPEDTR: Function 



INPUT 



List of 2715 area 
station counters left in 
the EREP partition (the 
3400 bytes preceding 
EREPEDTR) by 
EREPSMTR 



PROCESS 



1. Establish base registers, save return address, get number of error 
counters, and point to counter list. 

2. If next counter group is not active, go to step (t) . 

3. If the area station is FO or Fl, print error total counter only.— — 



4. If the area station number Is higher than Fl (an invalid address), 
update counter and go to step (Z) . 



5. Edit and print the 9 area station error counters. ■" ■ ■" ' ■" 

If this is a new page, also print page headings. 

6. If all counters have not been printed, return to step (2) . 

7. Exit to EREPSMCP. 



OUTPUT 



Error counters, by area 
station, on SYSLST. 



LABEL LIST | 


UBEL 


STEP 


START 


1 


NXTBLOCK 


2 




3 




4 


BALCVDEC 


5 


CNVTODEC 




PRINTIT 




PRT 




INCRCGPT 


6 


EXIT 


7 
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Chart MW, EREPEDD?\ and EREPEDTD: Function 



PROCESS 



INPUT 



List of error counters 
in the EREP partition 
(the 3400 bytes preceding 
EREPEDDA or EREPEDTD) 
left by the applicable 
summary phase. 



1. 



1. Establish addressability and set exit address. 

2. Point to device table and counter area. 

3. Scan device table for active entry. If none, exit to EREPEDCP. 

4. Set the edit bit in the device table and point to the counter table 

5. Unpack the device address and date into the header. 

6. Point to the LIST table, then exit to -LISTPROC- in EREPEDCP 
to process the counters. 



OUTPUT 



Error totals by device 
address (channel and unit) 
on SYSLST. 




UBELLIST 1 


LABEL 


STEP 


EDxxSTRT* 

DASDOO 

DASD05 

DASD10 

DAEDOO 


1 
2 
3 

4 
5 
6 








* XX is DA for 
EREPEDDA or TD 
for EREPEDTD. 
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Chart MX. EREPEDCR, EREPEDDK^ and EREPEDUR: Function 



INPUT 



List of error counters 
in the EREP partition 
(the 3400 bytes preceding 
this phase) left by the 
applicable summary phase. 



PROCESS 



1. Establish addressability and set exit address. 

2. Point to device table and counter area. 

3. Unpack date into page heading. 

4. Scan device table for active entry. If none, exit to EREPEDCP. 

5. Set edit bit in device table, point to counter group for this 
device, and unpack device address. 

6. If list is complete, go to step(^, 

7. Scan for device type, then set device type and message for use 
during printing. 

8. Point to the LIST table, then exit to -LISTPROC- in EREPEDCP 
to process the counters. ' ' 



OUTPUT 



Error totals by device 
address (channel and 
unit) on SYSLST. 



LABEL LIST | 


LABEL 


STEP 


EDxxSTRT* 


1 


DASDOO 


2 




3 


DAS DOS 


4 


DASDIO 




DAEDOO 


5 


DAED05 


6 




7 


DAED10 




DAED15 




DAED20 


8 


*xx is 


CRforEREPEDCR, 


DKforEREPEDDK, 


or UR for EREPEDUR. 
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Chart MY, 



EREPEDTP: 



Function 



PROCESS 



INPUT 



List of error counters in 
the EREP partition (the 
3400 bytes preceding this 
phase) leftbyEREPSMTP.. 



1. Establish addressability and set exit address. 

2. Set file dotes for output. If none, print no-record message and 
exit to EREPEDCP. 

3. Set date in page heading and set bit to indicate terminal done. 

4. Scan for active device entry. If none, exit to EREPSMCP. 

5. Unpack device address for output; indicate counter group edited.. 



6. Point to correct LIST table, then exit to -LISTPROC- in 
EREPEDCP to process counters. 



OUTPUT 



Error totals by device 
address (channel and 
unit) on SYSLST. 



LABEL LIST | 


LABEL 


STEP 


EDTPSTRT 


1 




2 




3 


SCANOO 


4 


EXITOO 




EDITOO 


5 


EDIT03 


6 


EDIT05 
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Chart MZ, EREPEDCU: Function 



PROCESS 



INPUT 



List of error counters 
in the EREP partition 
(the 3400 bytes preceding 
this phase) left by 
EREPSMCU. 



1. Establish addressability and set exit address. 

2. Point to device table and counter area. 

3. Unpack date into page heading. 

4. If there are MCAR records, point to the correct LIST table, 
then exit to -LISTPROC- in EREPEDCP to process the counters. 

5. Set to process CCH records. If there are no active entries, 
exit to EREPEDCP. 

6. Unpack channel address and set edit bit in counter. 

7. Point to correct LIST table, then exit to -LISTPROC- in 
EREPEDCP to process the counters. ■ ■" "• ■ ' ' ■ ' •■ ' ' ' ' • '" ' 



OUTPUT 



Error totals, by channel 
for CCH records, on 




LABEL LIST | 


UBEL 


STEP 


SYSLST. 












EDCUSTRT 


1 
2 










3 






4 




CCHOO 






CCHIO 


5 




EXIT 






CCH20 


6 






CCH30 


7 
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\i. 



Chart Hh. EREPEDDl: Function 



PROCESS 



INPUT 



List of error cour^ters 
m the EREP partition 
(the 3400 bytes preceding 
this phase) left by 
EREPSMDl . 



1. Establish addressability and set exit oddress. 

2. Point to device table and correct counter area. 

3. Unpack date into page heading. 

4. Scan for active device entries. If none, exit to EREPEDCP. 

5. Unpack device oddress and calculate read errors/mega 
byte read. 

6. Point to the LIST table, then exit to 
-LISTPROC- in EREPEDCP to process the 
device counters. ' ■ ' 



7. Scan for errors by volume 10 on the device being 
processed. If none, go to step ^) . 

8. Calculate read errors/mega byte read. 

9. Point to the LIST table, then exit to 
-LISTPROC- in EREPEDCP to process the 
volume counters. ■■ ' 



OUTPUT 



Error totals by device 




LABEL LIST | 


address (channel and 


LABEL 


STEP 


unit) on SYSLST. 










EDDISTRT 


1 


Error totals by volume ID 




DVCOO 


2 


to the limit of the avail- 






3 


able counters, then error 




DVC05 


4 


totals for all other 




EXIT 




volumes. 




EDITOO 


5 






EDITIO 
EDITVOO 


6 
7 


* 




EDITV05 


8 




EDITV15 






EDITV07 


9 






EDITV25 





For a 3330 the 'device address* 
is actiwlly the physical address. 
This means thah 

260 = drive A 
263 = drive D 
etc. 
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Chart NB, EREPEDTl and EREPEDXl: Function 



PROCESS 



INPUT 



List of error counters 
in the EREP partition 
(the 3400 bytes preceding 
this phase) left by 
EREPSMTl. 



1. Establish addressability and set exit address. 

2. Point to device table and counter area. 

3. Unpack date into page heading. 

4. Scan device table for active entry. If none, exit to 
EREPEDXl from EREPEDTl, or EREPEDCP from EREPEDXl 

5. Set edit bit in device table and point to counter group 
for this device. 

6. Unpack device address and set device type. 

7. Point to the LIST table, then exit to -LISTPROC- 

in EREPEDCP to process the counters, i ... , . . .:- 



OUTPUT 



Error totals by device 
address (channel and 
unit) on SYSLST. 



LABEL LIST | 


LABEL 


STEP 


EDxxSTRT* 


1 


DATEOO 


2 




3 


SCANOO 


4 


EXIT 




ED (TOO 


5 




6 




7 


* XX is T1 for 


EREPEDTl or XI 


for EREPEDXl. 
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Chart NC. EREPEDUl: Function 



INPUT 



List of error counters In 
the EREP partition (the 
3400 bytes preceding this 
phase) leftby EREPSMUl.. 



PROCESS 




1. Establish addressability and set exit address. 

2. Unpack date into page heading. 

3. Point to device table and correct counter area. 

4. Scan for active entries. If none, exit to EREPEDCP. 

5. Test for valid device types (3211, 3505, 3525, or 3525). 
If the device is none of these, go to step (3) . 

6. Point to correct LIST table, then exit to 
-LISTPROC- in EREPEDCP to process the 




OUTPUT 






Error totals by device 
address (channel and 
unit) on SYSLST. 

















LABEL LIST | 


LABEL 


STEP 


EDUISTRT 


1 




2 


SCANOO 


3 


SCAN05 


4 


EXITOO 




EDITOO 


5 


EDITIO 


6 


EDIT 15 




EDIT20 




EDIT25 
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Chart ND. EREPSMESs Function 



PROCESS 



INPUT 



The Input source and sort 
fype from -SUMSWTH2- 
In the EREP communica- 
tion region. " ' 



TES records from 
SYSREC or SYS009 
(history tope). — -— 



1. Establish base registers, relocate CCBs and CCWs, and 
establish input type (if first pass and tape input, 
OPENR SYS009). 

2. Set to utilize all available partition space for 
statistics accumulators. 

3. Read a record from the input device (SYSREC or SYS009), 

4. Check for a valid record type. If not, return to step @. 

5. If summary is by volume serial number by day and a new 
dote is encountered, exit to load EREPEOES. If EOF or 
EOV is encountered, load EREPEDES. 

6. Either odd the record to an existing counter 

or place the record, as a new counter, in its ' ' 

proper place. If overflow occurs in the summary 
work area, save last counter ID and set -SUMSWBYT- 
to get second execution of EREPSMES. 

7. Return to step (S) . 



OUTPUT 



In-EREP-partition 
counters containing TES 
summaries by volume 
serial number by day, 
or by channel and unit 
address. 



LABEL LIST | 


LABEL 


STEP 


SMESSTRT 


1 


RLDMINUS 




INITOO 




INIT20 




INITIO 


2 


READ 


3 


DISKREAD 




TAPEREAD 




READADDR 


4 


READOO 


5 


TAPE 10 




DISKIO 




SCAN 


6 


UPDTLOOP 
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Chart NE. EREPEDES: Function 



PROCESS 









1. Establish base registers and OPENR SYSLST. 




INPUT 


2. Calculate number of counters. 




Counter group type from 
-SUMSWTH2- in the 
EREP communication 






3. Point to the first/next counter. When all counters have been 
edited, exit to EREPSMES, if more TES records are to be 
processed, or to EREPMNTR when all TES records have been 
processed. 




region. 






In-EREP-portftion 
counters containing TES 






4. Determine counter type (cuu or vol. ser. no.) by testing 
-SUMSWTH2- and set to print that type of record. 

5. Perform necessary page skipping and header printing. 

6. Edit and print a record using the applicable subroutines; 
then return to step (3) . 
























Subroutines: 




7. Set the branch at -BR- with the table entry at -OPLST- 
indicated by a LIST macro, and branch to a subroutine. 




8. Update the macro pointer. 






9. Point to start of output area (-OUTPUT-). 






10. Fill output area with blanks. 






n. Fill output area with asterisks. 






12. Move a DC from the processing phase to the output area. 


















14. Exit to an external routine. 






15. Increment output pointer. 






16, Eject to a new page. 






17. Edit a hexadecimal counter to decimal and put in 










output area. 





OUTPUT 



Formatted TES records 
on SYSLST. 



LABEL LIST 


LABEL 


STEP 


EDESSTRT 


1 




2 


SCAN 


3 


EXITOO 




EDIT 


4 


EDITIO 


5 


EDIT25 




EDIT05 


6 


EDIT20 




LISTPROC 


7 


LSTRTN 


8 


BACK 


9 


BLANKS 


10 


ASTRK 


n 


MOVECOM 


12 


PRINT 


13 


PRROUT 




EXIT 


14 


INDEX 


15 


CNTROL 


16 


NEWPAGE 




MVCCTR 


17 
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Chart NF. EREPTES: Function 



PROCESS 



INPUT 



The contenfs of 
-SUBSWTH- rn the EREP 
communication region. — 



Responses of END/ENTER 
or CANCEL to TES 
messages ■ 



r 



1. Esrafalish base registers, set transient (EREPESTR or EREPESWK) 
load address to partition +4088, and relocate CCBs and CCWs. 

2. Check -SUBSWTH- for the option type; if it is TAPE, load 
EREPESTR; if it is PRINT, VOL, load EREPESWK. 

3. When all options are processed, -EREPNAME- is changed to 
MNTR and a branch Is taken to -LOADER-. 



Subroutines; Used by the called transient. 



4. Read record from SYSREC, update cylinder and head 
addresses, and check for I/O errors. 

5. Write TES tape records and check for l/O errors. 

6. Write disk address records for use by PRINT, VOL, 
and check for l/O errors. 



7. Print all TES messages. - 



8. Check operator response to those messages. 



OUTPUT 



3E07D UNEXPIRED TAPE 
FILEONSYS009 

3E15A TAPE FULL, 
MOUNT NEW TAPE 

3E31A WRONG TAPE, 
MOUNT CORRECT TAPE 

3E25I INVALID RESPONSE. 



LABEL LIST | 


LABEL 


STEP 


BEGIN 


1 


INITIAL 




RELOC 




OPTCHK 


2 


CKEDIT 




EXIT 


3 


READREC 


4 


RECUP 




WRITE 


5 


LABLROUT 


6 


MESSAGE 


7 


CHKRESP 


8 


NEXTOPT 
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Chart NG. EREPESTR: Function 



PROCESS 



tNPUT 



SYSREC records read 
by EREPTES. 



1. Set base register and issue mount message. ■ 

2. Test -SUBSWTH- for a new tape. If it is, go to step © . 



3. OPENR the update tape (SYS007), check for valid ■ 
trailer labels, then position the tape to write records 
over the trailer labels. Go to step (o) . 

4. OPENR the new tape (SYS007) and write the header labels. 

5. Test if this is a continuation; if so, go to step (t) • 

6. Read a disk record via -READREC- in EREPTES. 

7. Test if record is other than TES; if so, return to step (6) . 

8. Format the TES record and write it on SYS007 via -WRITE- 
in EREPTES, if 5 records (a block) have been read. 

9. Test for EOF on SYSREC or EOV on SYS007. If neither, 
go to step @ . If EOV on SYS007, go to step © . 

10. Write records in output area via -WRITE- in EREPTES. 

1 1. Write trailer labels and rewind/unload SYS007. If this 
was not EOF on SYSREC, return to step ® . 



12. Branch to -OPTNCHK- in EREPTES to check for additional 
options. 



OUTPUT 



3E09A MOUNT TAPE 
FOR TES PROCESSING 
(issued via -MESSAGE- 
in EREPESTV). 

Messages 3E15A, 3E31A, 
and 3E251, via 
-MESSAGE- in EREPTES, 
as applicable. 



LABEL LIST | 


LABEL 


STEP 


START 


1 


INITAPE 


2 


GOODTAPE 


3 


WRONGTP 




NEWTAPE 


4 


SET 


5 


ONCE 


6 


CHK 


7 


FORMAT 


8 




9 


RECUP* 




ENDH 


10 


TRAILERS 


11 


NOTEND 


12 


* Routine is in 




EREPTES 
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Chart NH. EREPESWK: Function 



INPUT 



SYSREC records - 



PROCESS 



Establish base registers, reiocare CCBs and CCWs, and 
issue mount message. , . ■ , . , 



2. Check for an expired tape. If the tape is not expired,— 
issue message and rewind/unload tape. If a new tape is 
mounted, start the checking procedure again. If the 
original tape is readied, use it. 

3. Read a record from SYSREC using subroutines in EREPTES. 

4. If EOF is encountered, and (1) no TES records have been 
read, turn off the PRINT, VOL option and return to 
EREPMNTR, or (2) if TES records have been 

read, write the contents of the ESWK work .—-----—-------— 



area on tape. * If EOV on SYS008 is encountered, print 
msg. then exit to EREPMNTR. 



5. if a record is read and it is not a TES record (if a X'50V, 
X'52', or X'53' is not at record +52), return to step®. 

6. Sort the TES record into -TABLE- and return to step (3) . 

* If all TES record addresses have not been written on the 
wo»-k tope, the highest Vol serial number and the last 
seek/search address are saved, and the sort is restarted 
(return to step (S) ) looking for additional records. 



^ 

Vi 



OUTPUT 



3E08A MOUNT SCRATCH 
TAPEONSYS008. 



3E07D UNEXPIRED TAPE 
FILE ON SYS008. 




3E20I LAST VOLUME 
SERIAL PROCESSED IS 
xxxxxx. 



LABEL LIST | 


LABEL 


STEP 


INITIAL 


1 


BEGIN 




CHKDATE 


2 


MSG 




ONCE 


3 


READ 




END 


4 


OPTOFF 




LOOP 




ERROR4 




CHK 


5 


GOOD 


6 


FRSTCHK 




FOLLOW 




COMPARE 




SCAN 




INSERT 




MOVE 
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Chart NJ. EREPHIST: Function 



PROCESS 



INPUT 



END/ENTER In response 
to any message. ■ 



If CANCEL rs entered in 
response to any message.* 



LABEL LIST 



CHKRESP 



1 . Set the base register and relocate the CCBs arwl CCWs. 

2. issue the mount message. . ' ■ "■ , ... , , _, , _ ,._.„■.,,..■ , ., „-^,. 



3. Test -SUBSWTH- for a new tape. If it is, go to step® . 

4. OPENR the update tape (SYS009), check for valid trailer labels, 
then position the tape to write records over the trailer labels. 
Go to step ® . 

5. OPENR the new tape (SYS009) and write the header label. 

6. Set the search address for SYSREC, then read a record. 

7. l^ate search address, then write the record on SYS009. 

8. Test for EOF on SYSREC or EOV on SYS009. If neither, 
return to step (6) . 

9. Write troiler labels. 

10. If this is EOV on SYS009 and ail SYSREC has not 

been processed. Issue tape full message and 

return to step ® . 



n. If this is EOF on SYSREC and a second 

tape is to be processed, issue mount second tape • 
message and return to step (^ . 



12. If this is EOF on SYSREC and all tapes have been 
processed, set -EREPNAME- in the looder to MNTR, 
then branch to -LOADER-. 

13. Reset CLEAR option switch at -COMREGN- and go to step @ . 



OUTPUT 



3E18A MOUNT 
HISTORY/RDE TAPE. 

3E31A WRONG TAPE, 
MOUNT CORRECT TAPE. 

3E251 INVALID 
RESPONSE. 



UBEL LIST 



MESSAGE 



3E15A TAPE FULL, 
MOUNT NEW TAPE. 

3E30A /VOUNT SECOND 
HISTORY/RDE TAPE. 



LABEL LIST 


LABEL 


STEP 


BEGIN 


1 


RELOC 




INITAPE 


2 


TAPEIO 


3 




4 


GOODTAPE 




WRONGTP 




NEWTAPE 


5 


HEADER2 




PROCESS 


6 


READ 




COMPUTE 


7 


WRITE 






8 


TRAILERS 


9 


CONTINUE 


10 


NOTEND 




ERROR4 




HISTCK 


n 


WAIT 




EXIT 


12 


EXITl 


13 
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Chart NK. EREPRDE: Function (Part 1 of 2) 



INPUT 



PROCESS 



UBEL LIST 



Responses to 
HISTORY/RDE mount 
messoge and enter 
parameters message . 

IPL,EOD,MCH, 
CCH, and unit 
check records from 
the RDE tope 
on SYS009 






L> 



1 . Set base registens, get SYSLST line count, relocate 
ADCONS, and OPENR SYSLST. 

2. Issue mount ROE tape message and read 

reply. If reply is cancel, go to step (V9) 

3. Write enter parameters message and read 

reply. If all parometers are defaulted, go to step \5J 

4. Check for valid parameters. If invalid parameter 
entered, write error message and return to step^^ „ 

5. Set defaults for unentered parameters, print 
parameters being used on SYSLST, and pass parameters 
to processing portion of RDESUM program . 



6. OPENR SYS(»9 ond clear tables overlayed by 
initialization code. 

7. Read a tope record . 

8. Convert the record date to seconds, relative to 
1960, and check that is withinthe specified 
limits. If not, return to step (Y) 



9. if 16 sequence errors occur, go to step Q9) 



10. Test the key to determine the type of record, 

if the record is not IPL,EOD,MCH,CCH or unit check 
return to step (7) 

11. If the record is IPL, print any necessary headings, 
pririt IPL records, and update cluster toble if clustering 
requested. 



12. If the cluster table ^oce is exceeded, issue an error message on SYSLST. 












»> 






OUTPUT 



3E32A MOUNT TAPE FOR 
RDE SUMMARY 

3E33A ENTER RDE 
SUMMARY PARAMETERS 

3E34I INVALID START 
DATE 

3E35I INVALID END DATE 

3E36I INVALID CLUSTER 
INTERVAL 

3E42I START DATE- 
YYDDD,END DATE-YYDDD, 
CLUSTER INTERVAL-M 

3E40I END DATE TOO 
HIGH, UST RECORD'S 
DATE-YYDDD 

3E41I START DATE TOO 
HIGH, UST RECORD'S 
DATE-YYDDD 

3E37I EXCEEDED 16 
SEQUENCE ERRORS 

IPL RECORDS ON 
SYSLST 

3E43I WARNING-IPL 
TABLE SPACE EXEEDED 



UBEL 


STEP 


BEGIN 


1 


INITOO 




RDLOGOO 


2 




3 


RDLOG15 


4 


RDLOG85 


5 


STARTRUN 


6 


ZEROTAB 




READ 


7 


CONVDATE 


8 


CONVTIME 


9 


CMPTlME 


9 


INCRSEQ 




RCTYP 


10 


IPL 


11 


GENPRINT 




RDEPHZ 




LOOKDESC 




LOOKSUB 




CONVDEV 





240 DOS/\fS Serviceability Aids 



Chart NL, EREPRDE: Function (Part 2 of 2) 



PROCESS 



LABEL LIST 



13. If the record is MCH^ CCH, or OBR, del-ermine 

if it is a System Incident or System Recovery Incident 
and update recording table. 

14. If the record is EOD, calculate run time (I PL to EOD). 

15. If end date is exceeded or EOF is encountered, 
print end date of report, calculate and print 
average run time (IPL to EOD), and print IPLs 



within clustering interval. If no IPLs processed, issue message. 

16. If the number of IPL cluster intervals calculated exceeds 

the available table space, issue an error «__«___««_______ 

message, 

17, Edit and sort SI/SRI table entries, then print 
number of SI/SRI for the CPU, real storage, 

channels, and subsystems. 



18. If the number of subsystems encountered exceeds 
the available table space, issue an error message 
on SYSLST. 



19. CLOSER SYS009 and rewind the tape, then 

CLOSER SYSLST and return to EREPMNTR via EREP. 



r^ 



OUTPUT 



Average run time, 
report end date, 
and IPLs within 
specified cluster 
interval. 

3E38I NO IPL 
RECORDS PROCESSED 

3E43I WARNING- 
SEQUENCE TABLE 
SPACE EXCEEDED 

System Incidents 
and System Recovery 
Incidents by 
Subsystem. 

3E43I WARNING- 
SYSTEM/SUBSYSTEM 
TABLE SPACE EXCEEDED. 



LABEL 


STEP 


MCH 


13 


CCH 




OBR 




EOD 


14 


WRAPUP 


15 


GRUPHD 




P2EJ1 


17 


PHASE2ND 


19 
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i 



PRINTER SUPPORT PROGRAMS 



3203^ 3211| AND 5203 PRINTER SUPPORT 
PROGRAMS 



Two programs are supplied to load UCB 
(Universal Character Set Buffer) and FCB 
(Forms Control Buffer) of the 3203, 3211, 
and 5203 printers. These programs are: 

• $$BUFLDR (with subphases $$EUFiDl and 
$$BUFLD2) , which loads the UCB and FCB 
with standard control infcriraticn during 
IPL 

• SYSBUFLD, which can be used to load the 
UCB and FCB with the required ccntrcl 
information between jobs or job steps 
any time after IPL. 

Note ; For a 5203 printer without the 
universal character set feature, only the 
FCB is loaded. 



$$BUFLDR is loaded by phase $IPLRT4. It 
scans the PUB table for 3203, 3211, and 
52 03 printer entries. When it finds an 
entry, it loads the UCB and calls phase 
$$BUFLD1. This phase loads the FCB of the 
printer and returns ccntrcl to $$BUFLDR. 
$$BUFLDR then returns to scanning the PUB 
table for further printer entries. When 
all buffers have been loaded, $$EUFLDR 
returns to $IPLRT4. 



SYSBUFID is invoked by a // EXEC 
SYSBUFLD Statement and can be executed any 
time after IPL within the user job stream. 
With one invocation cf SYSBUFLD you may 
load the FCB and UCB of a single printer, 
cr any combination of buffers en several 
printers. 



$§BUFLDR is executed as part of the IPL 
procedure. If 3203, 3211, or 5203 printers 
are attached to the system, $$BUFLDR 
together with the corresponding standard 
buffer load phases must be available in the 
core image library. The standard buffer 
load phases for the individual printers are 
shown in the following table: 



^ . ^ ^ ^ 

PRINTER I TO load FCB | To lead UCB 



3203 



$$BFCB3 



$$EUCB3 



3211 



I 



$$BFCB 



I 



$$EUCB 



5203 



j $$EFCB5 I 



$$EUCB5* 



*Not required for a 5203 without UCS 
feature. 



2245 PRINTER SUPPORT PROGRAMS 



One program, SYSBUFLD, is supplied to load 
the FCB (Forms Control Buffer) of the 22 45 
printer. SYSBUFLD is designed to execute 
as a job step within the user job stream. 
The EREP listing (printer output) for the 
2245 printer is the same as that for 
unsupported devices. 
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Chart 19. Printer Buffer Load 



READ IN 



(7>- 



I SYSBUFLD ) 



Read a Card and Sef Switches 



Charts PA-PE 



Reod a control card. If end -of- file ' 



2. Check the operation ( FC8 or UCB ) and logical unit (SYSxxx). 

Invalid operation: If non- LOG system «------------------------^ 

if UCB specified for 5203 without UCS feature, 
issue IBIOi "—------------^^ 



otherwise, issue IBOIA and wait for operator response. 
Invalid SYSxxx: if non- LOG system ------------------- --^^ 

otherwise; issue 1B02A and wait for operator response. 

3. Check the physical unit for 3211 or 2245 device. 
Invalid physical unit: if non-LOG system - 



otherwise, issue 181 1 D and 
wait for operator response. 

4. Check phase name. 

If invalid phase name cr no phase name, with UCB load, issue message 18031 

5. Check optional operand. 

If FOLD or NOCHK and FCB load, issue message IBOnI (n indicates position 
of invalid operand). 



FCB 



SYSBUFFl 




\^ SVC 14 J 



CANCEL 
SVC 6 



3 



UCB 



FCB Buffer Load 



Charts PF-PG 



1 . If card load : 

Read until end of buffer reached. If more 
than 112(5203), 180 (2245. 3211), or 192 (3203) 
positions read, issue message IB 031 ' 

2. if phase load, Load phase. 

3. Ensure fhat forms are positioned at channel 1 . 

4. Load FCB Buffer. 

5. Load SYSBUFLD. 



7^ 



f CANCEL ^ 
"A^ SVC 6 J 



UCBLOAD 



UCB Buffer Load 



Chart PB 



1 . Alter CCW string to odd optional operarKis. 

2. Load phase. 

3. If phase is not large enough for UCB load, 
issue message 18031 ---------------------- —^ 

4. Load UCB Buffer. 



(CANCEL ^ 
SVC6 J 
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Chart 20. 3203, 3211, and 5203 Printer IPL Buffer Lead Programs 



f SSBUFLDR j 



RELO 




IPL UCB LOADING 



Chart PH 



Searches the PUB table for 3203, 321 1, and 5203 entries, loads the UCB with 
standard loads, and return to IPL. 



1 . Save SYSLOG LUB for later printing of console message. 

2. Scan PUB table for 3203, 321 1, or 5203 entries. 

3. If no more entries, return to $IPLRT4. 

4. Point SYSUSE to printer. 

5. Load $$BUCBx and load UCB. If error occurs, call $$BUFLD2 ■ 

6. Call$$BUFLD1 ---___ 



7. Print message 01251 and return to PUB scan 



O 



f $$BUFLD1 j 



IPL FCB LOADING 



Chart PJ 



Loads the FCB with standard loads and returns to root phase. 

1. Align paper to channel 1 (321 1 only). 

2. Load $$BFCBx* and load FCB. If error occurs, call $$BUFLD2. 

3. Return to $$BUFLDR step 7 ^ 



■o 



r $IPLRT4 J 

IPL and Job Control, 
SY33-B555 



*x =-b for 3211 
3 for 3203 
5 for 5203 



f $$BUFLD2 J 



IPL 3211 BUFFER LOADING Error Subroutine 



Chart PK 



Tests for error type, issues appropriate message, and returns to next logical step 
in $$BUFLDR. 

1 . If device is operational (power on and on- line), continue to step 2. 
If device is not operational, issues message, 0I28Q DEVICE NOT 
OPERATIONAL, and waits for response. If response is not valid, issues 0I28D 
INVALID RESPONSE and again waits for valid response. 

a. If response is IGNORE or EOB, return to check next PUB —-—-——— 

b. If response is RETRY, return to step 5 in $$BUFLDR —-——-------—---- 



Print message 01271 UCB (or FCB) LOAD FAILURE and substitute dashes for 

failing load name in message 01261. 

If UCB failure, return to step 6 in $$BUFLDR' 

IF FCB failure, return to step 7 in $$6UFLDR- 



p) 



© 
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Chart PAc SYSBUFLD - Read Card and Print orx SYSLOG and SYSLST 
Refer to Chart 19. 



♦♦** 
♦ * 

* k2 * 

* * 



* ♦ 



*att**Ji\ ********* 

* * 

* SYSBDPLD * 

* * 
*ilt*iHlt*********^* 



ALFH& 


X 




^♦^^^Bl*'^******** 






* 




LOAD 


* 




BASE 


* 




RE6ISTEE 


* 



**«*:)( 4<*4<«4ti|<4<***4,* 



*4>*«4<*4(#*i|>!|<:i|>**4>** 



m****D'\ ********** 

* * 

* GET ♦ 

* DEflCETXPE * 

* ZOHE * 

* * 
:tt**************** 



MOTPENT X 

♦**A2 ****** ****** 
OHITPOB PA 

GET ADDRESS 
* OF SYSLOG * 
POB 
irt*************** 



B2 *. 
* *. 
SYSLOG *. NO 
A .*... 
PRINTER .* 



♦ YES 



♦*C2******* 

* SET tJP TO * 
CANCEL IN 

ISSUHSG 
ROOTINE 

* *C3 * 

;iti********** 



♦ 15 *,X 



♦♦♦* 
BEADIN X 

EXCP PE 

♦«♦_♦_*_♦-.♦-,♦_*_* 

READ 

* A * 

CARD 

*3tt**iti**:»***ilH^**** 



♦C3 
HODIPISS INSTRUCTIOH 
FROM BAL EXCP TO 
BAL CANCELIT, IF LOG 
RESPONSE IS RBQOIRED. 



* ST^T * 
W0RKREG2 

TO OCB LOAD 
ADDRESS FOR ' 

* OCB LOAD * 
*t********* 



♦ PE ♦ 

* G2* 

* * 



***DI^ ********:*i*iti* 

AGAIN PE 

♦- *_ *_ ♦_ ♦-. ♦_ ♦- *_ 4< 

POINT TO 
* OPERATION ♦ 

FIELD ON CARD 

nt*m************** 



. ' REFERENCES 

**X«TO PAEU: 

•PBE5, PEJ3 



El *. 
.* IPT * 
DETICE A 
2560 OR 
. 5*25 
♦ . .* 

*. . * 



.* HOPPER 
2 
*. ASSIGN ED 



^^1^Q■\i(^**1^1^*1^ 

* * 
CHANGE 

CC INTO CCH 
(READ FROM 

* H2) * 
i^4^*•ll^1^*1^■^fH^^^■lf 



m**^1 ************ 
ONITPOB PA 

*-♦-♦-*_.♦-,♦_*-♦-♦ 

GET ADDRESS 
* OF SISLST * 
POB 

i^-^^^^iii^if*'m*m****i' 



SYSLST 
I 

PRINTER 



* * 
* SET CONFIG * 

* Si BIT 6 CN, ♦ 
♦SHOiS SYSLST ♦ 

* A PBINTIB * 



*. EOF 



*:|i4t4<E3 ********* 

* SVC u * 

* EOJ * 

* ♦ 

****H:***itfit,****if 



* ARE 
FIRST 3 
CHARS 
•SYS» 



***** 
*PE * 
* G3* 



.* LOG *. NO 
*. CCHMAND .*... 
*. ACTIVE .* 



**«G2************ 

TYPEXCD PE 

♦«♦«♦_♦_♦_♦-♦-*-.* 

PRINT CARD 

* ON * 

SYSLST 

ili*it:ili************* 



H2 *. 
* IS * 
SYSLST 
A LINE 
PRINTER 



ZERO CONFIG ■ 
SW EXCEPT 
FOR BIT 5 

* * 



J2 *. 


*it,tij 3************ 


,* *. 


AGAIN FE 


.* OPTION *. NO 


♦_♦_♦_♦_♦_♦-*_♦_♦ 


LCG IN .* X 


POINT TO 


*. EFFECT .* 


* OPERATION * 


*. .* 


FIELD ON CARD 


*. .* 


*4>««:|i«4t*4c******«* 


* YES 






*♦** 




*PE * 




* J2 *.X. 




* * . 




♦*♦♦ 


X 


TYPRTDRN X 


4>4>*K2************ 


**K3 ♦♦*♦**♦ 


EXCP PE 


* SET * 




* W0BKSEG2 * 


PRINT CARD 


* TO FETCH TO * 


ON ♦ 


* ADDRESS FOR ♦ 


SYSLST 


* FCB LOIiIi * 




*4>4>4<«*4>4<4>4<)|c 



.* *. 






****H5******** 


SYSOOO TO 


* 


NO 


* 




*. . . . 


* ONITPOB 


*, SYS221 


*' 




* 


* , * 






'***********«**:! 


*. .* 




X 






* YES 




***** 

*PK * 






x'. 




* G3* 






X 




* * 






***** 




* 






*PB * 




NOSYS 






* B1* 




ONITPOB X 


* * 






itnt,*ii,*jijm*******i 


* 






* FIND 


CHFTYPB 






* POB 

* SYSIR 








utm****** 


4<4<4<4i«*4< 



* A2 * 

* * 

**** 
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Chart PB. SYSBUFLD - Check for Valid Device and Ccir.rrand 
Refer to Chart 19. 



**«4>* 


















*PJl * 


















* m* 


















♦ ♦ 


















* 


















CHKTIPB i 


TST3211 .*. 




>|i*«*«B1 *«***«**«* 


B2 *. 
















♦OMITPOB P»* 


.* * 
















♦-.♦_»-♦«♦-♦-♦-♦-♦ 


. * 


*, 


IBS 












* GET ADDRESS ♦ 


*. 3211 




*..,. 












* OF POB FOB * 


*. .* 














* OMIT SPECIF ♦ 


*. .♦ 
















«*4i*****4'4i**4>4>*4i* 


♦ . .* 
♦ HO 




♦ ♦ 












X 


X 
















.♦. 


. *. 








.*, 






COHFIjCT 


CI ». 


C2 *. 








C3 ♦. 






♦♦ct^******* 


. * ♦. 


. * ♦ 








♦ ♦. 






* 


.♦ *, no 


.* 


*, 


YES 


♦' 


FCB 


« 


HO 


» SET OP 


*. 22«^5 .*..... 


♦. 5203 
♦. . 


♦ 


♦ ...X* 


♦ 


LO*D 


*' 


*. . . . 


. ...X* EPR HSG 


*♦. ^^^"^ .» 




* 1B10I 


♦. .* 


*. .* 








*. .♦' 






* 


*. .* 


*. .♦ 








♦ . .* 






4i**4ii«****** 


♦ YES 


♦ HO 








* YES 








♦ **♦ 


















* ♦ . 


















* D1 *.X. 










X 






X 


* ♦ . 










**** 






«***• 


♦ ♦♦* 


X 








♦ ♦ 






♦PE ♦ 


TYP2BTRII X 


.*, 








♦ F2 ♦ 






* D2* 


*4iOt ******* 


D2 *. 








* * 






* * 


* SET ♦ 


,* *. 








*«*« 






* 


* W0BKBEG2 * 


.* 


« 


IBS 










PRIHTBB 


* TO FETCH2 ♦ 


♦. 52030 




*.... 












* FCB LOUD ♦ 


*« .* 














♦ BTH * 


*. .* 
















*«4>****4i4>4>* 


*. .* 
* HO 




« * 

♦ F2 * 

♦ ♦*♦ 
















































El *. 


E2 ♦. 
















.* ♦, 


.* * 
















.* FCB ♦. IIS 


.♦ 


*, 


TBS 












*. LOUD .♦ 


*. 3203 




*.... 












*. , * 


♦. 


* 














*. .* 


*. .* 
















♦ . .* 


♦. ,* 




X 












♦ HO 


♦ HO 

♦♦*♦ X 




♦♦** 
« * 

* B5 * 

* ♦ 












lfOTfP2 X 


.LORDS .*. 








.*. 








ti^pt ***'*'*** 


F2 ♦. 








F3 *. 








* * 


.♦ PHASE * 








* * 






4< 


♦ SET OP * 


. * HAHE 


*. 


TES 


» 


PHASE 


*. 


HO 


* SAVE 


* EBBOB nSG * 


..X*. SPECIFIED 


♦ " 


*.... X* 


'♦ 


NAHE > 8 
BYTES 


4> 


♦.... 


....X* PHASE 


♦ 1801* * 




♦ HAHE 



* * 

* B5 * 



SET OP 
EBB HSG 
1B11D 

* * 



PBIHTH^S PE 

PBIHT 
♦ BRROB • 
MESSAGE 



IS 

BBPLY 
IGNOBB 



* F2* 

* * 



*4[4t4t*4i***4i* 



PEIHTMSG PB 

PBIHT 
* EBBOB ♦ 

MESSAGE 



4c**4<*ti 1 ♦♦♦*♦♦*♦♦♦ 

* SAVE * 

* HEl ♦ 

* OPEBATIOH * 

* TYPE * 

* * 



♦ D1 ♦ 

♦ ♦ 





**•** 


X 


♦PE * 


.*. 


♦ C2* 


G2 ♦. 


* * 


.* ♦. 


* 


fCB *. HO 


HOPHS E 


LOAD .*..,. 




.* 




** .* 




♦. .* X 




* TBS **•*♦ 




*PE * 




♦ C2* 




* * 




♦ 




HOPHSE 




X 




mm^l******* 





*«**«: 4>4<4i*4>**4>«4i*< 



***** 

*PD * 
* A1* 



*****i;5********** 

* * 

* SAfI HB» ♦ 

* SYSTEM ♦ 

* ONIT ♦ 

* * 

**«****«*4t******* 



X 

***** 
♦PA ♦ 
♦ ^H* 

* * 



♦ SET COHFIG ♦ 

♦ SW BITS 2+7 ♦ 

♦FOB CABD LOAD+ 

♦AHD HO NSG ♦ 



J2 ♦. 

. ♦ AHY ♦ 

KOBE 

OPIBAHDS 



****j3***4i***** 

♦ BBAHCH ♦ 
. X^ ¥IA ♦ 

♦ WORKBEG2 ♦ 

***4i*****4e4t4t*** 



X 

***** 

♦PD ♦ 
* A1^ 
* * 

* 
HEXTOP 
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Chart PC. SYSEUFLD ~ Load UCB 
Refer to Chart 19. 



* * 

* OCBLOAD * 

* ♦ 



OCBLOAD X 

* SET OCB * 

♦ OP CODl * 
* SET CCi TO 

* PEOCISS * 
♦DATA CHECK * 



♦ *** 

♦ * 

* c^ * 



* * 

ALLOR 
BLOCK 
DATA 

* CHECKS * 



D1 *. 
* 

5203D 



El ♦ 
3203 



* BESET * 
. ...X* FOLD COMMAND * 

X * TC NOOP * 

* * 



.♦ FOLD *, YES 
*. REQUIRED .♦.,.. 



MOVE ♦ 

OHFOLD * 

OP CODE ♦ 

IN CCW ♦ 



.*. 



♦ * 

♦ HI * 



G1 *. ♦♦g2******* 

.* ♦. * « 

.♦ FOLD ♦. YIS * ALLOW 

*, REQOIKED .* X* FOLDING 

*. .* ♦ 

*. .* * ♦ 

*, .♦ ♦#♦♦♦**♦♦** 

* NO 

♦ *♦* 

* * . 

* HI ♦.!. 

* * .X 

♦ ♦** X 

. *. 
HI *. i+H2******* 

.♦ ♦. * * 

.* MESSAGE *. NO ♦ INITIALIZE 

* . SOPPRESSID .* X* ecu TO 

♦ . .♦ * SRITE 

*. .* * MISSAGE ♦ 

*- ^* ***«!:?* :?:**** 

* YES 

X X 

* * * * 

* eft * * C4 * 

* * * # 
♦*** ♦♦*♦ 



**E3******* 

♦ * 
* CHANGE CCW1 * 

. X* CC=LOAD OCB ♦ 
*mTH FOLDING * 

* * 



*1ft**Cli********** 



*i|li^*^t*^***itt^ti^l**** 



«« :4i *« p || ««:(<** 4. stc «# Ik 



:(<***>K)tt)k4c*Jtt4<*«*<4c* 



* * * * 

* ♦ SVCtt * ♦ 

* * LOAD * * 

* * 0CB * * 

* * PHASE * * 

« ;<l 4C*9«1 « 4< 3|[« ]»3(< *« Ik*:* * 



* * 

* GET END * 

* ADDP 0? * 

* LOADED PHASE * 

* * 

4i <<* ;tc *«*««* Ik** #4(41 * 



♦ * 
SET 512 

BYTES 
MINIMUM 

* LENGTH * 






* * 

SET 2I»0 

BYTES 
MINI MOM 

<k**$***4t*** 



* MOVE ♦ 
VERIFY 

MSG TO 
OOTPOT 

* LT NP ♦ 

4.4i4c«**4i4>4t4i« 



COMPARE .*. 

K«» *. 
.* PHASE *. 



* YES 

.' NOPHSE 



*PE * 
* C2* 

* * 



. T EXRCOTF 

* CCH CHAIN * 

FOS nCE LOSB 

«*4<4e4r4!i«>****4<4i**4c4i 



***** 

*PA * 

* D2* 

* ♦ 
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Chart PD. SYSBUFLD - Check Optional Operands 
Refer to Chart 19. 



♦*♦** HEFESENCIS 

* * TO PDA1: 

* ** PBP4, PBJ2 



HEXTOP 


.*. 








A1 *. 








* * 






* 


AST 


♦ 


..X*. 




tlOPE 






* 


OPEBANDS 

*. .* 

*, .* 


* 


**** 




♦ YIS 




* * 








* &1 * 








♦ * 








**** 









* ♦« 


*B2 






3 *. YIS 


BBANCH VIA 






OPEERNDS .*..X 


N0EKREG2 TO 






CHECKED .* 


EITHEF PETCH2 (PE> 






*. .* 


OR OCELOAD fPC} 






*. .* X 






* NO ***** 






* » * 






» B2* 






* * 
* 






.*. IS BLOCK .*, 


ISHSG 


.♦. 


CI *. C2 *. 




C3 *. 


* *. .* *. 




* 


OPEIAND *. NO .* OPERAND *. NO 


,*' 


OPEEAND 


FOLD .* ...X*. NO CHK .* 


X*. 


NOLMSG 



4i*0t ******* 
*SET CONFIG * 

* S« BIT ON * 
TO INDICATE 

* FOLDING * 
* * 

4<*:4t4>>|<4'***** 



*)t>02******* 
♦SET CONFIG * 

* SH EIT 1 ON 
* TO INDICATE 

* BLOCKING 

* * 

*!tc4c******** 



* POINT TO * 

* NEXT * 

* OPEBAND ♦ 

* * 

]|<4<4t3|C9tt3t<*:)t*>|<4<****** 



:4>#Q3!K3|(«i|t«4<* 
♦SET CONFIG ♦ 

♦ Si BIT 2 ON 
♦ TO INDICATE 

♦ NO MESSAGE 

* ♦ 

*]|(4<4<******* 



«!|E**«g 3**itt*i|t4t4(4ij|ci|> 

* « 

* POINT TO * 

* NEXT * 

* OPEBAND * 

* * 

* 9)1 :(t 41 *«i* i|i4< ******* * 



* A1 ♦ 

* * 
**** 



. ♦. 




BAD 


c* ♦. 




*4i*«4eCI^*4(**«*«*«4i 


|e « 




♦ POINT TO * 


OPEBAND 


♦. YES 


♦ Ni^XT OPERAND ♦ 


PRESENT 


«♦«••• 


. . . . X^ FOR ♦ 




* 


♦ MESSAGE ♦ 


.♦ 




* * 


*. ,* 




«4i***4t«*4>**)K*4iit>*4i 


* NO 




**** * 

♦ * 

♦ D5 ♦.X. 

♦ * . 


X 




**** 


.♦. 




BAD 2 X 


D* *. 




**D5******* 


* 




♦ SET OP * 


BLANK 


*, 


♦ INVALID ♦ 


PRESENT 


.* 


* OPERAND * 




,* 


♦ MESSAGE * 



*********** 



***B5*)K********** 

PRINTHSG PE 

♦-♦_♦-.*-.#_*_♦-.*_♦ 

PlINT 
* ERROR * 

MESSAGE 

***************** 



* A1 ♦ 

* * 
**** 



PCB 


♦ . 


NO 


LOAD 


* 


♦ . . . . 


. * 






*. .♦ 




X 


♦ YES 




**** 

♦ * 

♦ Al ♦ 


X 






♦ **♦ 




*♦** 


* ♦ 






♦ D5 ♦ 
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Chart PE. SYSEUFFl - Miscellaneous Subroutines 
Refer to Chart 19. 



* * 

* ISSOHSG * 

* * 



ISSDMSG X 

PEINT8S6 FE 

PRlMf 
* BBROE * 
MESSAGE 
***#*if *********** 






HDBESP X 

*****c^********** 

* BLSHK SEACIH * 

* ABE*, SET CCl * 

* CODE TO BUD « 

* PROH STSLOG ♦ 

* ♦ 



STSLOG *, YES 
A ...... 

PBINTBB .* 



♦-.♦»♦«♦-.♦.♦- 



BEAD 

* OPBBATCB * 
RESPONSE 



* ♦ 

* CHANGE CCS ♦ 

* TO WRITE * 

* COMHAND ♦ 





***m 1^3********* 




* PRIMTHSG * 




* BXCP ♦ 




♦ *m * 




*ilfi*:ttt<********** 




**** I 




* * 




* B3 ♦.X. 




* * 




PHINTMSG 




EXCP X 




m****B3********** 




* * * * 




♦ * S?C * * 




♦ * EXECUTE ♦ * 




* * I/O * * 


***** REFERENCES 


* * ♦ * 


* *T0 PEC2: 




* ** PBP3, PBG2 




* * PCKa 




* 


, X* 




X 


NCPHSE X 


.*. 


4<4>(;;2******* 


C3 *. 


*SET OP POS ♦ 


.* *. 


*INVAIID PHASE* 


*.** COMPLETE .** 


* HESSAGE * 


* 1B031 * 


*. . * 


* • 


*. .* 




*. .* 




* HO 


$$$« ', *9** 




* * . ♦PB * 




* D2 *.X...* CH* 




* * . ♦ ♦ 




♦*♦* . ♦♦*♦ 




PaiHTBS X 


X 


tim*D2**********'*'* 


4t * « 4> « q3 «« * « )K ]» «:|e 4»» 


PRINTMSG PB 


* * SVC 7 * * 


♦_♦_ ♦_♦-♦-«-♦«♦. * 


* * WAIT * * 


PRINT 


♦ * FOR ♦ * 


* ERROR * 


* *COHPI.BTION * * 


MESSAGE 


* * * * 


4> i|i3|>4<4c* * ***«*«4>**4> 





*Aa 

SUBROOTINBS PRINTMSG 
AND EXCP HAVE BEEN 
DOCOKENTED ONCE, 
BBCAOSE THEl HAVE 
IDENTICAL LOGIC. 



4»t>**B4 ********* 

* * 

* AGAIN ♦ 

**** 

* * 

* CU *.x 

* * 
**♦* 

AGAIN 

*it***CH* 

* INCRBH^NT * 

* TO NEXT * 

* CARD ♦ 

* COLUMN * 

* ♦ 
4i!|r*4t»:|i4i4i3Ki»* ****** 



END 

OF 

CARD 



* * 4> * /^ c; 4, *;!, 4, 4, 4, 4, 4, 4, 

* * 

* TYPijfCP * 

* ♦ 

nt* *********■»•**■*, 



TYPBXCP 

4c *4<|;5«*4>*3tt* ****** 
RBVWSB PE 

4t_4i-4,-4'-*-*-.*-«-* 
SET DATA LENGTH 
* IN CCW FOR * 
PRTNTONG 

****4r* *********** 



Sl?T UP TO * 

PRINT ON * 

SYSIOG * 

* 
********* ****** 



**** 

* * 

* B3 * 

* * 

**** 



****£2'«'******** 

* SVC 6 ♦ 

* CANCEL * 

* * 

*************** 



*4i**s3********* 

* RETURN TO * 

* CALLER ♦ 

* * 

*****4i*4t******* 



TRTDO X 

*4i*4t*:g((********** 

* SCAN FOR * 

* NON-BLANK ♦ 

* CHARACTER * 

* (TRT) * 

4<4<***** ********** 



***** 

*PA * 
* CH* 



NOTIPE X 

4i*Q2******* 

* SETUP FOR * 
*INVALID TYPE * 

♦ HISSAGI * 

* 1B01A * 

* * 
4c****4i***** 



**i,i**j|2*******»** 
♦ISSOMSG PE* 

*-4t- *-♦-*-*-*-*-* 

* PRINT HESSAGE * 

* AND READ * 

* ANSWER * 

***************** 



**if*j2********** 



**4c**4>********4c4t 



X 

***** 

*PA * 



***** REFERBNCIS 

* * TO PEG3: 

* ** PAEt, PAHa 
* ♦ 



4C4IG3******* 
*SET UP FOR * 

* INVALID * 
SYSUNIT 

* MESSAGE * 
* 1B02A * 

*********** 



*****l{3********** 

*ISSUHSG PE* 

*_♦_*.*_*-♦_*.*-♦ 

* PRINT MESSAGE * 

* AND READ * 

* ANSWER * 

**i|t**:p* ********** 



*****j3********** 



***************** 



X 

***** 
*PA * 



****K -J********* 

* RETURN TO ♦ 

* CALLER * 

* * 
*************** 



ANY 

NON-BLANK 
. SCANNED .■■ 



****G(|********* 

* RETURN TO * 

* CALLER * 

* * 
*************** 



****H4 ********* 

* * 

* FETCH2 * 

* * 

*************** 



* * SVC 4 * * 

* * LOAD * * 

* * SYSBUFP 1 * * 

* * * * 
***************** 



****fC|^ ********* 

* EXIT TO * 

* SYSBUFFI * 

* * 

*************** 



INVCC 

*****^5********* 

♦SET DP INVALID 

* CONTROL 

* CARD 

* HESSAGE 

* 

****************' 

', ***♦ 

* 
..X* D2 



****p^*** ****** 
* 

* REVERSE 
* 

*************** 



*****(; 5****41**** 

* COMPUTE 

* LENGTH OF 

* DATA 



STORERJ 

**lf5******* 

* MOVE DATA ♦ 

* LENGTH INTO * 
* CCW FOR LOG * 

* PRINTING * 

* * 
*********** 



>l<***J5*4t******* 

* RETURN TO * 

* CALLER * 

* * 
*************** 
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Chart PF. SYSBUFFl - FCB Buffer Lead (Part 1 cf 2) 
Refer to Chart 19, 



* * 

* A3 * 

* * 
♦ ♦*♦ 



* R5 * 



*m**ji\ ********* 

* * 

* SYSB0PF1 ♦ 

* * 



BOFFEIN 
SEfOP X 

■t|li|^^^i^i1^^■\^^^i***:^1^*i^* 



***itf************* 



520 3 

OR 
52030 



* K2 * 

* ♦ 
**** 

CHKDEV 



.* BUFFEE *. YES 
BAHGE .*.... 

♦.EXCEEDED .♦ 



LOAD 

FEOH 
CARDS 



♦ ♦ 

♦ H2 ♦ 

♦ * 



GETCC 

EXCP EE 

♦_*_♦_♦_*«♦_♦_♦_* 

BEAD X.. 



* EOF *. 

BEFOIE EHD . 
*. OF BOFI .* 



**pl*4<*4(*** 

* ♦ 
SET BOFFEH 

LENGTH 
= 130 

♦ * 

:»c***it****** 



. *. 
G1 *. 

5203 

OE 
5203D 



#*f]1*4i3K4>*4t* 

♦ ♦ 

* SET BOFFIR 
* LENGTH 

* =112 

* * 
ttt*******i^** 



X 

. *. 
C2 * 
* 

END 

OF 

CASD 



**i^i**D2********** 

* * 

* POINT TO * 
..* BEGINNING OF * 

* TEXT CAED * 

* * 

^:i^4'************** 

**** 

* * 

* E2 *... 

* * 
♦*♦* 

X 

***-g2****** ****** 
PEINTMSG PE 

♦_ ♦_ ♦_♦_ *-*- ♦-♦« * 

. X PSINT 

* PHASE * 
IN?AL MASG 

****** 4c 3|<**4i If***** 



* SVC6 ♦ 

* CANCEL * 

* * 
*************** 



**** 

* * 

* E2 * 

* * 

**♦* 



* HO?E 

* VERIFY HSG 
*T0 PRINTLINE 

* * 

*********** 



* MOVE * 

* • VERIFY MSG * 

♦TO PRINTLINE * 

* * 

*********** 



J1 ♦ 

* 

3203 



**K1 ******* 

* * 
SET BOFFEB 

LENGTH 
= 192 

* * 
*********** 



**** 

* * 

* H2 ♦ 

* * 
**** 



* BLANK * 

* VERIFICATION * 

* MISSAGE * 

* ABEA * 
***************** 



*****j2******* 



**E1»******* 

* * 
INITIALIZE ' 

CCNS TO 
READ FCAR 

* AND FCB * 
*********** 



♦_*_*_*«♦-*_♦-.* 



***************** 



TESTBIT 
SHIFT X 

*****(;l| ********** 

* * 

* DETERHINE * 

* THE VALOB * 

* OF fHE FCAR * 

* * 
***************** 



FORHS *. NO 
LINES PEE .*.. 
INCH ,* 



*****ff5********** 

* SET FOE * 

* 8 LINES * 

* PEP INCH * 

* IN SHORT * 

* FCB LOAD * 
***************** 



SET CCW 

TO DO FCB 

LOAD 

* * 

*********** 



***n5************ 

EXCO PE 

*_♦_*_*_*-*_*-.*_♦ 

LOAD SHORT 

* FCB * 

***************** 



**p>5******* 

* SET CCW * 

TO 

SKIP 



***f5************ 

EXCP PE 

♦-*-*_.♦«*»♦_*_*_♦ 

SKIP TO 
♦ CHANNEL 1 * 



************ 






**Q5******* 

* * 
RESTORE 

CCW'S FOE 
FCB LOAD 

* ♦ 
*********** 



3 


* * SVC 4 * * 




* * LOAD FCB * * 




* ♦ PHASE * * 






X 


***************** 


♦ *** 




* 


**** 


A2 ♦ 


* * , 




* K2 *.X. 


**** 


* * 




**** 


RESET X 




**K2******* 








* NOP * 




* PRINT * 




♦ CCR * 



*********** 



NEXTFCB 

*****j() ********** 

* DETERMINE * 

* NOMBEH OP * 

* SPACES TO * 

* REACH * 

* CHANNEL 1 * 
***************** 



* SET OP BOFPER * 

* FOR SHORT * 

* FCB LOAD * 

* * 

***************** 



**j5******* 

* * 
SET CCW 

TO PRINT 
MESSAGE 

* * 
*********** 



***** 
♦PG * 
* A1* 



**** 

* * 

* A3 * 

* * 
**** 



**** 

* * 

* A5 ♦ 

* * 
**** 
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Chart PG. SYSEUFFl - FCB Buffer Lead (Part 2 of 2) 
Refer to Chart 19, 



♦pp * 

♦ J5* 

* * 



♦♦♦* 

♦ * 

♦ HI * 

♦ * 
♦ *♦* 



♦_♦_♦_♦_♦_♦_♦-.*«♦ 



*j$lili**:ttTti***ilt**#3tc** 



.iiiiin. 




NO 


*. .* 
*. . * 

* YES 




X 

* 
* J1 

♦ *♦♦ 


SET CCB 
TO OOTPOf 
TO SYSLST 


♦ 

* 





*«**«4>««3tl*l|l 



.* SYSLST 
A 

♦. PBINTEB 



* SET CCB * 
AND CC» 

TO OOTPOT 
TO SYSLOG 

♦ ♦ 



* * 

* POT PRINT 

* CCM ADDRESS 

* IN CCB 

* ♦ 

**** 

* * 

* HI * 

* * 

* ♦♦* 
DOIO X 

EXCP EE 

LOAD FCB AND/CR 

* PRINT ♦ 
HESSA6E 

**♦* 



*♦♦♦ 
FETCH 1 X 



4t«*4>**4>4<4c#**4<**** 



* EXIT TO * 

* SYSBCFLD ♦ 
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Chart PH. 



Load UCB 

Refer to Chart 20, 



* ♦ 

* SfBOFLDE ♦ 

* * 



IJBOFBIO 
RELO X 

* ESTABLISH ♦ 

* BASE REG. * 

* RELOCATE * 

* ADCOHS SET ♦ 

* FOR PDB SCAN * 



♦SA?E SISLOG LOB* 
♦THEN POT SISaSi* 

♦ PTB IN SYSLCG * 

♦ LOB FOB ERROR * 

♦ EECOVERI * 
9t> * 4> « 41 iti * :(i 4> *:» 4 * « * :» ill 



****** 4>*4 4i*«4>i|t**4t 



* B3 * 

* * 



* STORE 

* PHASE BARES 

* IN ENDHS6 
* 



***** 
♦P.7 ♦ 
* J«l* 



***f^e^************ 
¥.XCV PJ 

♦_♦_*_♦_♦-.«_♦_♦_♦ 

LOAD 
♦ PRINTBl * 

FCB 
m**************** 



**** 

* ♦ 

* C3 * 



**** 
*PK < 
* E2 



*.X. 



END *. YES 

OF .* 

TABLE .♦ 



♦ EBSET * 

* OCB AND fCB * 

* PHASE HAKES * 

♦ * 

4I****** ******** 4* 



m****f 1********** 

* * 

* SAVE * 

* DEVICE * 

* TYPE * 

* * 
4>**************** 



**#**]) 2********** 

* * 

* EESTORE * 
X* SYSLCG AND * 

* SYSDSE LOBS * 

* * 
****** 4*** ******* 



****-£2********* 

* SVC 11 ♦ 

* RE1DEN TO * 

* SSIPLRTH * 

*************** 



**(;;3********** 

POINT * 

SYSOSB * 

LUB TO * 

PRINTER ♦ 

POB ENTRY * 

************** 



D3 ♦ 

* 

5203 



****£3********* 

* SVC 1 * 
*LOAD OCB PHASE ♦ 

* * 

*************** 



*****{)((*********: 

* DASH OOT 

* OCB 
.X* PHASE NAME 

* IN 

* BESSAGE 
**************** 



**** 

* * 

* Gl ♦ 

* * 
**** 



♦ *** 
ENDHSG X 

***cs************ 

L06RIT1 PJ 

♦ _*_♦-♦«♦-.♦_♦-«_* 

PRINT HSG 

♦ m 261 ON * 

SYSLOG 
***************** 



**** 

* » 

* B2 ♦ 

* * 

♦♦♦* 



***fH************ 
EXCP PJ 

- - ■ - -_*_*_* 

LOAD THE 
3211 OCB * 



*_*_*_*_* 



3211 


*. 


YIS 




POB ENTRY 




*. .. . 




*, , * 








*. .* 




k 




* NC 




**** 

* * 

* C3 ♦ 

* * 
**** 




X 








. *. 








HI *, 






m*ikii:*ti2********** 


* ♦ 






* * 


5203 


* 


YIS 


* SIT OP * 


POB ENTRY 




* 


I* $$BFCB5 ♦ 




* 




* PHASE NAME * 



♦*♦* 

* * 

* B2 * 

* * 
♦*♦* 



*************** 



*****j2********** 

* SET DP * 

* tJBOCBS * 
X* AND ♦. 

* «$BFCB5 * 

* PHASf NAMES * 
***************** 



m****Y;,2********** 

* SET OP * 

* f.l!B0CB3 * 
X* AND * 

* $$BFCB3 * 

* PHASE NAMES * 
***************** 



♦*** 

* ♦ 

* B3 * 



*****63**** ****** 

* * 

* LA OF OCB * 

* LOAD ecu * 

* (CCN 520 3) * 

******#********** 



***{I3************ 

EXCP PJ 

*_*_♦-*_*_*_»_♦_* 

LOAD THE 
* 3203, 52030 ♦ 
OCB 
***************** 



***************** 



***-* 
CHI X 

*****ei^«********* 

* * SVC « * * 

* * LOAD * ♦ 

* * S«B0FLD1 ♦ * 

* * AND PASS * * 

* * CONTROL * * 
***************** 



X 

***** 
*PJ * 
* B1* 
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Chart PJ. Print Messages on SYSLOG and Load FCB 
Refer to Chart 20. 



* * 

* LOGEITE * 

* ♦ 



♦ ♦*♦ 
*PH * 



***♦ 
LOG RITE 

* MAKE PEINTEB ♦ 

* DI7 ADDS * 

* PRINTABLE * 

* SET FOR PRINT ♦ 

* ON SYSLOG * 

4c « % * 4. * * )|n|t « 41 « !(r 4> 4c * * 



♦ * 

* DISABLE * 
* DISASTER TEST * 

* AT «TEST« ♦ 

• * 



* POINT ♦ 

* TO * 

* CCB ♦ 

* * 



♦ * 

♦ S^BOFLDI * 

♦ * 

*4c:(c *** ifi^t****** « 



* JH * 

* * 



* * 

* EXCP * 

* * 



*4c«C U'*<')'*4<*'l< *>(<%*** 
EXCP PJ 

♦ _*-♦-.*-*-*-*-.♦-* 
READ FCAR 
* AND FCB * 

PROM 3211 



m***D2********* 

* * 

* STARTIO * 

* ♦ 



TEST 


BIT 


X 


SHIFT 


.* . 




m *. 




.* 


* . 




1^ 


FCAR 


4t 


HT 


POSITION 




*. 




1 



SVC 
♦ ♦ 



F1 
. * 

COM PL ET I 



♦ ♦ * ♦ 

♦ ♦ SVC 7 * * 
.X* * BAIT * * 

♦ ♦ ♦ * 

♦ * * ♦ 



iti***Q2********* 

* RITORN * 
.X* TO * 

* CALLER * 
4c4>«4<«4<*4<**3t'4c«*« 



NEXTPCB 

* DETERMINE * 

* NOHBER OP * 

* SPACES TO * 

* REACH * 

* CHAN 1 * 

***:ti*}tt*!ti* ******** 



KLEBR X 

*****f(^ ********** 

* CLEAR FCB * 

* CREATE SHORT * 

* FCB LOAD SET * 

* FOR fi LINPS * 

* PER INCH * 
***************** 



SHORTFCB 

***QH**** 

EXCP 



FETCH X 

^^:^:;^^'^', ********** 

♦ * SVC H * * 

♦ ♦ LOAD ♦ * 

♦ * «$BDFLD2 * * 

♦ * AND PASS * * 

♦ * CONTROL * * 



♦ ♦♦♦* 

*PK ♦ 

* B1* 



***************** 



***nn**** ******** 

STARTIO PJ 

*-*-♦-*-*-*-♦-*-* 
SKIP TO 

* CnANltKL 1 * 

***************** 

**** 

* * 

* 3H *.X.' 

**** 

X 

*****jH********** 

* * * * 

* *SVC H LOAD * * 

* * 1!$BFCBKX * * 

* * *J5 * ♦ 

* * * * 
***************** 



*J5 

X= (BLANK) FOR 3211 

3 FOR 3203 

5 FOR 520 3 



***** 
*PH * 
♦ B5* 
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Chart PK, $$BUFLD2 - 3211 Buffer Load Error Subroutine 
Refer to Chart 20. 



* $$B0FLD2 * 

* ♦ 



*PJ ♦ 

• HI 



*K2 
0I28D ElVICE 
NOT OPIPATIONAL 



tlt*ifCl **lHf** ****** 
LOGEITE PJ 

♦_♦_♦-«_♦_♦-.♦-,♦_♦ 

PRIBT HSG 
* 0128D * 
♦ A2 

***1f****1f***:^*ilf*if 



***D-\************ 

LOGBITE PJ 

♦_♦-♦_♦_*_♦-.♦«♦_♦ 

BEAD 
* BEPLI * 



ERROE 

***Q2***'*'******** 

LOGBITE PJ 

PBIUT HSG 
* 0127 * 
♦C3 
*********4.*****i^^t 



**j)2******* 
*SOBSTITOTE * 

♦ DASHES FOB 
FCB OS OCB 

♦ IH 0I26I 

* ♦Da * 

**********^ 



♦C3 
0I27I (0CB1FCB) 
LOAD FKILOBE 



♦D3 
IJBOCB AMD 
$$BPCB LOADED 



.* BESPONSI ♦. IIS 


.* FCB *, lES 


*. EOB OB .*. ... 


*. LOAD .♦.,.. 


*. IGNOBE .* 


*. .* 


*. .♦ 


*. .* 


*. .* X 


*. . * X 


* no ***** 


♦ NO ♦♦♦** 


*PH * 


*PH * 


* B2* 


* C5* 


♦ ♦ 


* * 


* 


* 


X NEXT 
Fl* '*. 


ENDHSG 


X 


.* ♦. 


****j 2********* 


.* BESPONSI *. IIS 


* BEIUBN TO * 


*. BETBI .* 


♦ CALLEE * 


*. .* 


* ♦GS ♦ 


*. .♦ 


:ltfm************* 


*. .♦ X 




* NO ***** 




*PH ♦ 




* E3* 




* # 




♦ 




LCAD1 




X 




***Q 1 ^*********** 




EXCP PJ 




♦_*_♦-♦_♦ _♦ _*_♦_♦ 




PBIHT HSG 




♦ 0128D ♦ 




-H1 




3|[:4i*]|c4i4i4t4:4>*4>)l'****# 





*G3 
BETOENS IN-LINE 
TO CODE IN ffBDFLDE 
AFTEE BAL TO 
EXCP, LOGEITE, OB 
STARTIO 



♦HI 
0I28D INVALID 
BESPONSE 
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APPENDIX A: 



ERROR MESS?\GE CROSS REFERENCE LIST 



PDAIDS ERROR MESS?\3ES 



^C68 
4C69 



GB 
GB 



SDPAR 
SDPAR 



MESSAGE 


CHART 


PHASE 


4C10 


AA 


PDAID 


4C11 


AB,AK 


PDAID 


4C12 


AK 


PDAID 


4C13 


AH,AK 


PDAIB 


4C14 


AH 


PDAID 


UC15 


AJ 


PDAID 


4C16 


AJ 


PDAID 


4C17 


AC 


PDAID 


4C17 


AD 


PDAID 


4C17 


AG 


PDAID 


4C17 


AH 


PDAID 


4C17 


AK 


PDAID 


4C20 


AD, AH 


PDAID 


4C21 


AE 


PDAID 


4C22 


AF 


PDAID 


4C23 


AE 


PDAID 


4C24 


AM 


$$BPDAID 


4C24 


CB 


PDAIDITP 


4C24 


CD 


PDAIDITT 


4C24 


DC 


PDAIDFTT 


4C24 


DE 


PDAIDFTT 


4C24 


EC 


PDAIDGTP 


4C24 


EF 


PDAIDGTT 


4C24 


FA 


PDAIDTDT 


4C24 


FC 


PDAIDTDT 


4C26 


EC 


PDLIST 


4C27 


AC 


PDAID 


4C28 


AE 


PDAID 


4C50 


AC 


PDAID 


4C51 


AC 


PDAID 


ac52 


AC 


PDAID 



DUMPGEN ERROR MESSAGES 



SDAID ERROR MESSAGES 



MESSAGE 


CHART 


PHASE 


04E6 


3H 


SDEHR 


UC17 


GA 


SDAIDl 


4C17 


GB 


SDPAR 


4C53 


GA 


SDAIDl 


4C54 


GA 


SDAIDl 


4C55 


GA 


SDAIDl 


4C56 


GA 


SDAIDl 


4C57 


GE 


SDAID2 


4C58 


GB 


SDPAR 


4C59 


GB 


SDPAR 


4C60 


GB 


SDPAR 


4C61 


GB 


SDPAR 


4C62 


GB 


SDPAR 


4C63 


GB 


SDPAR 


4C64 


GB 


SDPAR 


4C65 


GB 


SDPAR 


4C66 


GB 


SDPAR 


4C67 


GB 


SDPAR 



MESSAGE 


CHART 


PHASE 


4C42 


HA 


DUMPGEN 


4C43 


HA 


DUMPGEN 


4C4 4 


HD 


DUMPGEN 


4C46 


HE 


DUMPGEN 



PDSDM ERROR MESSAGES 



MESSAGE 


CHART 


PHASE 


0V20 


JA 




PDSDM 


0V21 


JC 




PDSDM 


0V22 


JD 




PDSDM 


0V23 


JA 




PDSDM 


0V24 


JA 




PDSDM 


0V25 


JA 




PDSDM 


0V26 


JA 




PDSDM 


0V27 


JA 




PDSDM 


0V28 


JA 




PDSDM 


0V29 


JA 




PDSDM 


0V30 


JC, 


JD 


PDSDM 


0V31 


JC 




PDSDM 


0V32 


JC, 


JD 


PDSDM 


oy33 


JC 




PDSDM 


0V34 


JD 




PDSDM 


0V35 


JC, 


JD 


PDSDM 


0V36 


JC, 


JD 


PDSDM 


0V37 


JD 




PDSDM 


0V39 


JD 




PDSDM 


0V40 


JC, 


JD 


PDSDM 


0V41 


JF 




PDSDM 


0V42 


JJ 




PDSDM 


0V43 


JJ 




PDSDM 


0V4 4 


JB 




PDSDM 



EREP ERROR MESSAGES 



MESSAGE 


CHART 


PHASE 


3E01 


MC 


EREPMNTR 


3E02 


MC 


EREPMNTR 


3E04 


MC 


EREPMNTR 


3E06 


MC 


EREPMNTR 


3E07 


NF 


EREPTES 


3E07 


NH 


EREPESWK 


3E08 


NH 


EREPESWK 


3E09 


NG 


EREPESTR 
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3E10 


?4D 


EREPEDIT 


3E34 


NK 


EREPRDE 


3E10 


MQ 


EREFSMCP 


3E35 


NK 


EREPRDE 


3E11 


MB 


EREPMNTR 


3E36 


NK 


EREPRDE 


3E12 


MB 


EREPMNTR 


3E37 


NK 


EREPRDE 


3E14 


MB 


EREPMNTR 


3E38 


NL 


EREPRDE 


3E15 


NF 


EREPTES 


3E40 


NK 


EREPRDE 


3E15 


NG 


EREPESTR 


3E41 


NK 


EREPRDE 


3E15 


NJ 


EREPHIST 


3E42 


NK 


EREPRDE 


3E18 


NJ 


EREPHIST 


3E43 


NK 


EREPRDE 


3E20 


NH 


EREPESWK 


3E43 


NL 


EREPRDE 


3E21 


MD 


EREPEDIT 








3E22 


MD 


EREPEDIT 








3E25 


MB 


EREPMNTR 








3E25 


NF 


EREPTES 


PRINTER SUPPORT 


ERROR ME 


SSAGES 


3E25 


NG 


EREPESTR 








3E25 


NJ 


EREPHIST 








3E26 


MC 


EREPMNTR 


MESSAGE 


CHART 


PHASE 


3E27 


MC 


EREPMNTR 








3E28 


MC 


EREPMNTR 


0126 


PH 


$$BFIDR 


3E29 


MC 


EREPMNTR 


0128 


PK 


$$BFID2 


3E30 


NJ 


EREPHIST 


IBOl 


PE 


SYSEUFLD 


3E31 


NF 


EREPTES 


IBOl 


PB 


SYSBUFLD 


3E31 


NG 


EREPESTR 


1B02 


PE 


SYSEUFLD 


3E31 


NJ 


EREPHIST 


1B03 


PE 


SYSEUFLD 


3E32 


NK 


EREPRDE 


IBIO 


PB 


SYSEUFLD 


3E33 


NK 


EREPRDE 


IBll 


PB 


SYSBUFLD 
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APPENDIX B: REFERENCE FIGURES 



I HARDWARE/SOFTWARE INTERFACE (PSWs, Logout Areas, etc) | 
^^^ ^._„^ 

TABLES AND CONSTANTS, that nmst be below 4K. Contained in 
FOPT macro (System Coirraunications Region, Background 
Comrounication Region, etc.) 



h 



CANCEL, GENERAL ENTRY, TASK SELECTION; these routines 
must be below 4K. Contained in FOPT macro. 

CHANNEL SCHEDULER, SVC ROUTINES AND AP ROUTINES? need not 
be below a certain boundary. 



H 



Some CONSTANTS that must be below 16K, 



SAVE AREAS, OPTION TABLES, PIB TABLES, I/O TABLES, SYSTEM 
TASK BLOCKS, FOREGROUND COMMUNICATION REGIONS, etc., 
having Y-type address pointers in low storage. Must be 
below 32K. 



I/O INTERRUPT HANDLER, DISK ERP 



EXTERNAL INTERRUPT HANDLER 



TABLES, SAVE AREAS, TRANSIENT AREAS, having A-type 
address pointers in low storage (System Task Save Area, 
Boundary Box, PTA, LTA, etc.) 



H 



FETCH ROUTINE 



H 



CCW TRANSLATION ROUTINES 
PAGE MANAGEMENT ROUTINES 
VSAM ROUTINES 



h 



MACHINE CHECK HANDLER, CHANNEL CHECK HANDLER, RAS MONITOR, 
RTA 

I PAGE MANAGEMENT TABLES, CCW TRANSLATION COPY BLOCKS 



h 



Base Registers 



RC 
Rll 
R12 
R13 



R9,R10 



-V- 



R14 



* Up to this point address- 
ability should be possible 
with Y-type address 
constants 



""""rI 

1 — - 

R9 

Rlfl, R15, R13 

R14 



R15 



Figure 54. Supervisor Storage Allocation 
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Supervisor Nucleus 



SYSCOM 


72(X'48') 






^ 





J 




Int. Hook 



iiw. 



\. 



s 



PDAREA 



Address of 

last byte of 

PDAREA 



To 
Interrupt 
Trace 
Hook 



To 
SIO 

Hook 



To 

Transient 

Dump 

Hook 



To 

Fetch/L 

Trace 

Hook 1 



To 
F/L Trace 
Hook 2 



PDAID 
Save and 
Information 
Area 



PDAID 
routines 



(not 
drawn) 



(not 
drawn) 



Note: The PDAREA is present when PD==YES or PD=n was 
specified on the FOPT macro. The minimum size is 
1400 bytes. 

Figure 55. Accessing PDAID Routines 
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r 1 

1 SVC 

L_ . 


^ , . , 

Macro Supported 


Function 


1 Dec 


Hex 


i *opti 


onal 


^ , 




|0 





EXCP 


Execute Channel Program 


|1 


1 


FETCH 


Fetch any phase 


|2 


2 




Fetch a logical transient (B-transient) 


|3 


3 




Force dequeue 


|4 


4 


LOAD 


Load any phase 


|5 


5 


MVCOM 


Modify supervisor communication region (if issued by MVCOM 

macro) 

Fetch another physical transient (if issued by a physical 

transient) 


1 6 


6 


CANCEL 


Cancel a prcbleir prcgram cr task 


|7 


7 


WAIT 


Wait for a CCB cr TECB 


1 8 


8 




Transfer control to the problem program, from a logical 
transient (B-transient) 


|9 


9 


LBRET 


Return to a logical transient (B-transient) from the problem 
prograir after an SVC 8 


|10* 


A 


SETIME 


Set tiirer interval 


111 


B 




Return from a logical transient (B-transient) 


|12 


C 




Reset svritches in partition ccmmunicaticns region 


|13 


D 




Set svvitches in partition ccmirunications region 


1 14 


E 


EOJ 


Terminate job and gc to job ccntrcl for end of job step 


1 15 


F 


SYSIO 


Headqueue and execute channel program 


|16* 


10 


STXIT(PC) 


Provide supervisor ^ith linkage to user's PC routine for 
program, check interrupts 


|17* 


11 


EXIT (PC) 


Return from user's PC routine 


|18* 


12 


STXIT(IT) 


Provide supervisor with linkage to user's IT routine for 
interval tiirer interrupt 


|19* 


13 


EXIT (IT) 


Return from user's IT routine 


1 20* 


14 


STXIT(OC) 


Provide supervisor mth linkage to user's OC routine for 
external or attention interrupts (operator cornirnand) 


|21* 


15 


EXIT(OC) 


Return from user's OC routine 


|22 


16 


SEIZE 


Seize/release system; enable/disable for external and I/O 
interrupts; set key in user's PSW 


1 23* 


17 




Lead phase header. Phase load address is stored at user's 
address 



L X 



± 



. . J 



Figure 56. DOS/VS Supervisor Calls (Part 1 of 4) 
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r 

1 SVC 

|Dec Hex 

L 


. , . , — .-»_, 

! Macro Supported 


__„___ 

1 Function 


r 

1 *opti 


onal 


^_. 




|24* 


18 


SETIME 


Set timer interval and provide supervisor with linkage to 
[user's TECB, if any 


|25* 


19 




Issue HALT I/O on a teleprocessing device, cr HALT I/O on any 
device if issued by OLTEP. With multiprograiriring, dequeue an 
unstarted OLTEP I/O request tc a shared device 


|26* 


Ih 




Validate address liirits 


|27* 


IB 




jSpecial HIO on teleprccessing devices 


|28* 


IC 


EXIT (MR) 


Return from user's stacker select routine (MICR type devices 
only) 


|29* 


ID 


WAITM 


Provide support for multiple wait macro WAITM 


|30* 


IE 


QWAir 


Wait for a QTAM element 


|31* 


IF 


QPOST 


Post a QTAM. element 


|32 


20 




Reserved 


'[33 


21 




Reserved for internal macro COMRG 


[34 


22 


GETIME 


Provides Tirae-of~Day and updates the DATE field 


|35* 


23 


HOLD 


Hold a track for use by the requesting task only 


|36* 


24 


FREE 


Free a track held by the task issuing the FREE 


|37* 


25 


STXir(AB) 


Provide supervisor with linkage to user's AE routine for 
abnormal termination of a task 


1 38* 


26 


ATTACH 


Initialize a subtask and establish its priority 


139* 


27 


DETACH 


Perform normal termination of a subtask. It includes calling 
the FREE routine to free any tracks held by the subtask 


|40* 


28 


POST 


Inform the system of the termination of an event and ready 
any waiting tasks 


1 41* 


29 


DEQ 


Inform the system that a previously enqueued resource is now- 
available 


!42* 


2A 


ENQ 


Prevent tasks from simultaneous manipulation of a shared data 
area (resource) 


|43 


2B 




Reserved 


1 44* 


2C 




Provide supervisor support for external creation of unit 
check records by specific request 


|45* 


2D 




Provide emulator interface 


|46* 


2E 




Provide OLTEP with the facility to operate in supervisory 
state 



L i. J. ,^^^^^^^^^^ «„„_, 



J 



Figure 56, DOS/VS Supervisor Calls (Part 2 of 4) 
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1 SVC 
1 Dec Hex 


^ , , 

1 Macro Supported 

L . _„« 


^ ^ — , — .^ — , — ^ ^„ 

1 

Function 

L ^ . . . . ^ . 


1 *optional 


|. __„ 1 


« 


|47* 


2F 


WAITF 


1 Provide support for irultiple v?ait macro WAITF fcr MICR type 
devices 


|«48* 


30 




Fetch a CRT transient 


|49 


31 




Reserved 


|50 


32 




Reserved for LIOCS error recovery 


|51 


33 




Return phase header 


|52* 


34 


TTIMER 


Return the remaining time interval, or cancel a tirre interval 


|53 


35 




Reserved 


|5U 


36 


FREEREZ^L 


Release page frames to selection pool 


|55 


37 


GETREAL 


Provide interface between SDAID and PDAID initialization 
routine and page iranageirent routine, to create the PDAID 
alternate area or the SDAID buffer area 


|56* 


38 


GETPUE FREEPUB 


Occupy or free PUB of the device used by PO^ER 


|57* 


39 




Make POWER-supported partition dispatchable 


|58 


3A 




Provide interface between job control and the supervisor. 
Get real storage fcr real jets 


|59 


3B 




Provide interface between ECJ and the supervisor. Initialize 
specified page table entries 


|60 


30 


GETADR 


Provide virtual address of location within I/O areas for ERP 
and CRT routines 


|61* 


3D 


GETVIS 


Get storage in virtual partition 


|62* 


3E 


FREEVIS 


Free stcrage in virtual partition 


1 63 


3F 


USE 


Use a resource 


1 64 


40 


RELEASE 


Release a resource 


|65* 


41 


CDLOAD 


Lead VSAM or CI phase 


1 66 


42 


RUNMODE 


Return node in which prcgrair is running 


|67* 


43 


PFIX 


Fix page(s) in real stcrage 


|68* 


44 


PFREE 


Free page(s> in real stcrage 


|69* 


45 


REALAD 


Return real address corresponding to a given virtual address 


|70* 


46 


VIRTAD 


Return virtual address corresponding to a given real address 


|71* 


47 1 


SETPFA 


Establish or terminate the linkage between the supervisor and 
a user page-fault appendage routine 



-X X 



J 



Figure 56. DOS/VS Supervisor Calls (Part 3 of 4) 
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SVC 


Macro Supported 


Function 

L . 




Dec 


Hex 


. ^ 

*optional 


, 





72* 


48 


GETCBUF 
FREECBUF 


Get or free copy buffer for IDAL or tape ERP 


73* 


49 


SETAPP 


Allow linkage to channel and appendage routines 


74* 


4A 




Fix page(s) in real storage for restart 


75 


4B 




Reserved 


76 


4C 




Initiate recording of an RMSR I/O error 


11 


4D 


TR?\NSCSW 


Returns the virtual address of a copied CCW 


78-84 






Reserved 


85 


55 


RELPAG 


Release contents of one or ircre pages 


86 


56 


FCEPGOUT 


Force a page-out for cne or rrcre pages 


87 


57 


PAGEIN 


Page-in one or rrcre pages 



L i. JL . 



J 



Figure 56, DOS/VS Supervisor Calls (Part 4 of 4) 



264 DOS/VS Serviceability Aids 



NICL FICL LUBTAB 



JIBTAB 



System 


n 


BG 


n 


F4 


n 


F3 


n 


F2 


n 


FT 


n 



E 



n- number of units 
i= index displacement 
within LUB table 



PUBOWNER 



FOCL 



































-^ 


^ 







y^ 



FAVP 











































^ 


[^ 


^ 


^ 











































used by ASSGN statement 
processor (Logical Transient) 
and by Job Control 



PUBTAB 









n 


II _ 


11 


!ii 


I _ 




























nt:: 


II 









































^^ 
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Figure 57. I/O Table Interrelationship (Part 1 of 3) 
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I KEY 



EXPLANATION 



NICL (Number in Class) 



Byte contains the number of system class LUEs. The 
rerraining bytes contain the number of prcgrairirer class LQBs 
for each partition. The total number of bytes is one inore 
than the number of partiticrs supported. 



H 



FICL (First in Class) 



Byte points to the first system class LUE table (LUBTAB) . 
This is always the first entry in the LUB table. The 
reiraining bytes pcint to the first prcgrairirer class LQBs in 
the LUB table partition areas. The total number of bytes 
is one more than the nuirber of partitions supported. 



H 



LUBTAB (Logical Unit 
Block Table) 



Byte of each entry is an index pointer tc an entry in 
the PUB table (PUBTAB) and to an entry in the PUE ownership 
table (PUEOWNER) , cr contains X'FF' if no logical unit is 
assigned. Byte 1 points to an entry in the JIB table 
(JIETAB) or contains X'FF' . 



-1 



PUBTAB (Physical Unit 
Block Table) 



Bytes and 1 cf each entry contain the 
address of the physical device. Byte 2 
in the channel queue (CHANG) table cr c 
3 is a retry counter or, if the unit is 
reader and the TEE=n paraireter was incl 
macro, contains a pointer to the Tape E 
(TEBTAB) entry for the device. Byte ^ 
type code. Byte 5 is an index pointer 
track-hold table, the seek-address tlcc 
table (Model 125 only) when one of thes 
for the device. Otherwise this byte cc 
6 contains the channel scheduler flags 
ccntrcl flags. 



channel and unit 
points to the entry 
cntains X'FF*. Byte 

a tape cartridge 
uded in the FOPT 
rror Block table 
contains the device 
to the entry in the 
k table, cr the ir.ode 
e options is active 
ntains X'FF*. Byte 
and byte 7 the job 



H 



FOCL (First on Channel 
List) 



Byte points tc the first PUBTAB entry fcr a device on 
channel 0. Byte 1 points to the first PUETAB entry for a 
device on channel 1, and sc on. X'FF' indicates that the 
associated channel is not supported. 



PUEOWNER 



Byte of each entry is reserved. Byte 1 identifies the 
partition that cwns the corresponding PUB. 



FAVP (First Available 
Pointer) 



This one-byte pointer tc the next available entry 

in the JIB table (JIBTAB) is used by the ASSGN statement 

processor and by jcb contrcl. 



JIBTAB (Job Information 
Block Table) 



Bytes and 1 cf each entry contain extent cr LUB 
inforrration used by job control and the ASSGN stateirent \ 
processor. Byte 2 is a flag byte. Byte 3 is a chain byte. | 



Figure 57. I/O Table Interrelationship (Part 2 of 3) 
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I KEY 

I- 



I 
-+- 



EXPLANATION 



^ 



CHANQ (Channel Queue j Byte in each entry points to the next entry in the 

table) 1 queue for the same device (cr the next free entry if in the 
1 free list), or it contains X'FF' if the entry is the last 
1 in a chain, Eytes 1, 2, and 3 contain the CCE address. 
1 Byte ^t if I/O was requested by a user prograir, contains 
1 the Partition Identification Key (PIK). If a systeir task 
1 requested I/O, then the zone field is all zeros and the 
1 nurreric field contains the ID of the specific system task. 
1 Byte 5 contains a displacement index pointing to the LUBTAB 
1 entry related to the I/O request (absolute LUETAE index) . 
1 Byte 6 contains the relative LUBTAB index for system LUBs, 
1 or X'FF' for programmer LUBs. Byte 7 contains the 
1 displacement index of the PIBTAB entry for the task 
1 requesting I/O (TIK), or X'FF' if the channel queue entry 
1 is free. 

^„ 4 ^-„„ ^_„ 

FLPTR (Free List | This one-byte pcinter contains the displacement 

Pointer) j index of the next free entry in the channel queue table 
1 (CHANQ) . 
^ ^^1 ^„„„ 

TEBTAB (Tape Error | One entry Is built for each tape cartridge reader 

Block Table) | at supervisor generation time if the FOPT macro parameter 
1 TEB=n is included. 
4 ^„ . 

THTAB (Track Hold Table) | This table is built at supervisor generation time if the 

1 TRKHLD=n parameter is included in the FOPT macro. Byte 
1 in each entry points to the next entry in the chain of 
1 requests for a track to be held on a specific DASD (or the 
1 next free entry if in the free list), cr it ccntains X'FF' 
1 if the entry is the last in a chain. Bytes 1, 2, and 3 
1 contain the CCE address. Eytes 4 through 9 contain the 
1 disk address (EBCCHH) of the held track. Byte 10 contains 
1 the key of the owning task, or all zeros when the entry is 
1 free. Byte 11 is a flag and counter byte: bit is turned 
1 on when a task requests a track already held ty another 
1 task, and the value in the low-order half -byte is 
1 incremented by cne each time a task requests a hold on a 
1 track that it already holds itself. Note: when multiple 
1 holds by cne task are effective, the value in the 
1 lower-order half-byte is one less than the actual number of 
1 holds. 
_ J. _ _ 


T - 

SAB (Seek Address Block) | This table is built at supervisor generation time if the 

1 SKSEP=n or YES parameter is included in the FOPT macro. 
1 Bytes through 3 of each entry contain the current disk 
1 address (BCCH) for the device. Byte 4 contains X'FF' or 
1 points to the THTAE entry. 
_ - I - 


T 

LMT (Line Mode Table) | This table is built at supervisor generation time when the 

1 TP=ETAM, or QTAM parameter is included in the SUPVR macro, 
1 and ]yiCDEL=115 cr 125. An entry is built for each device 
1 for which the DVGEN macro includes the jyiODE=X' ssss* or 
1 X'ssssss' parameter. Each entry contains the actual mode 
1 setting for the device. 



J 



Figure 57. I/O Table Interrelationship (Part 3 of 3) 
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Number in 
Class List 
(NICL) 



LUBTAB 



First in 
Class List 
(FICL) 



SYS 
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BG 

System LUBs 













SYS 
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BG 
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F4 

System LUBs 






F2 
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F2 


Fl 
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F4 

Programmer LUBs 
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Fl 
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F3 

System LUBs 






F3 

Programmer LUBs 






















F2 

System LUBs 






F2 

Programmer LUBs 




















J 


Fl 

System LUBs 






F] 

Programmer LUBs 



















LUB Table for any Partition 

SYSRDR 

SYSIPT 

SYSPCH 

SYSLST 

SYS LOG 

SYSLNK 

SYSRES 

SYSSLB 

SYSRLB 

SYS USE 

SYSREC 

SYSCLB 

SYSViS 

SYSCAT 

SYSOOO 

SYSOOl 

SYS002 

SYS003 

SYS004 



! 
SYS nnn 



Figure 5 8. Logical Unit Block Table (LUBTAB) 



00000000- Points to first PUB and PUBOWNER 
0000000 1- Points to second PUB and PUBOWNER 
000000 10- Points to third PUB and PUBOWNER 



11111 
11111 



Ignore, assigned ignore 

Null Pointer, the LUB is unassigned 



When a logical unit is assigned, the system inserts a pointer 
to the PUB for the physical device specified. 



_^Formatof any LUB 



Byte 


Byte 1 


PUB Pointer 


JIB Pointer 



JIB Index (Multiply by 4 = Displacement into JIB Table) or 
X'FF' = Null Pointer,no JIB for this LUB. 

A LUB has a JIB pointer when: 

1. The logical unit is temporarily assigned 

2. The logical unit assignment is alternate (ALT). 

3. A DASD file (exept a system I/O file on disk) is 
opened (DASD file protect only) 



Bytes 76 and 77 (X'4C'~X'4D') of the partition communication 
region contain the address of the LUB table. 
Label LUBTAB identifies the first byte of the table. 

Notes; 

1) SYSU5E may be called SYSCTL in error recovery messages. 

2) Not more than 225 LUBs can be generated into the system. 
As there are 14 systems LUBs for each partition the maximum 
number of programmer LUBs in the system is: 241 if NPARTS^l, 
227 if NPARTS=2, 213 if NPARTS-3, 199 if NPARTS=4, or 
185 if NPARTS=5. 

3) Null entries are generated at supervisor generation time. 
Standard assignments can then be made to PUBs at supervisor 
generation time or during IPL, 
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JIBTAB 



JD O 

4-i tz 






£■§ 

E oi <i> 
^^ E 

Z .*2 -4= 



Byte (s) 



Description 



0-1 (Contents 
depends on the bit 
setting in byte 2) |- 



h 



h 



Bit Setting 
Byte 2 



Bit 0=1 Stored 

standard 

assignrrent 



Bit 1=1 

Alternate 

assignirent 



Bit 2=1 

2311/2314/2319 

Extent 



Bit 3=1 

2321/3330/3340 

Extent 



Contents 



LQB entry of stored standard assignrrent. (PUB and 
JIB pointer) 



Byte 0: PUB pointer 
Byte 1: X' 00' 



Byte 0: Cylinder lovver lionit 
Byte 1: Cylinder upper limit 
(Note 1) 



For 2321: Lcvver lirrit (Cell or ccirtined sutcell 

and strip), or 

Upper lirrit (Cell or ccrrfcined sutcell 

and strip) 
For 3330 

or 334 0: Cylinder lovver limit, or 
Cylinder upper limit 
(One cylinder number uses tvjo bytes) 
(Note 2) 
(Note 3) 



Meaning if bit = 1: 
Bit Oi Stored standard assignment 
1: iMtcrnate assignrrent 
2: 2311/2314/2319 extent 
3: 2321/3330/3340 extent 
4: The alternate assignment indicated in bit 1 is perrranent. 

This bit is also en when one of the extent indicators (bit 2 
and bit 3) is on, 
5: Cataloged procedures processing 
6/7: Reserved 



H 



+- 



Chain byte 

Contains the displacement index of the next JIB, 
! end of the chain. 



X'FF' defines the 



H 



Figure 59, Job Information Block (JIB) Table 



i 
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Note 1; Only when file-protect on DASD, Not e 3: Extent inforrration is supplied by 

the prograir initiator and logical IOCS open 
transient routines. The supervisor can 
Note 2 ; Two JIBs are required for a then perforin the file protect function for 

2321/3330/3340 extent; one for lower limit the specified file liir.its. File protection 
and one for upper limit. does not include supervisor and transient 

originated I/O. 
The lower liirit defining JIB must be 
chained to the upper limit defining JIB. Bytes 68-69 (X'44' - X'45') cf the 

partition communication region contain the 
For 2321, byte 1 of this type JIB contains address of the JIB table entry. Label 
the subcell number times 10 plus the strip JIBTAB identifies the first byte of the 
number in binary. table. 
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PUBTAB 




Channel 1 

PUBs 




Job Control Flags — 

Channel Scheduler Flags - 
Device Type ■ 



TEB Pointer/Retry Counter 
Unit 1 



d 



r 



Fcr WFCM or MFCU : 



Channel Queue Pointer 
-Channel 

Device Characteristic Codel 
or SAB Pointer J 



rlFFl PUB-table 
delimiter 

LpuBEND 

Figure 60. Physical Unit Block (PUB) Table 



B yt e s : 

1 
2 



Channel number. (Hex 0-6, FF=ISIULL) 

1/0 device unit number 

Hex 0, 1, 2, ,.. points to the first 
channel queue entry for this device 

If device is a 2495 Tape Cartridge 
Reader and lEBs are specified^ this 
byte is a TEB pointer. (Hex 1, 2, 
3, ...). Otherwise, this byte is an 
ERP retry counter. 



^: Device type code 

5: SS of the MODE=parameter in the 
DVCGEN macro for tape unit. 



For ICA line (Model 115, or 125), 
this byte contains the displacement 
index of the entry in the line Mcde 
Table (LMT) . The address of the LMT 
is in SYSCOM. 



For DASD with seek separation, this 
byte is used as the SAE Pointer. 
With Track Hold but not seek 
separation supported, this byte 
contains a pointer to the Track-Hold 
Table entry or X'FF' (with both SKSEP 
and TRKHLD specified, the Track-Hold 
pointer is found in the SAE entry) . 



For MICR type devices, this byte 
indicates which external interrupt 
line is in use. For a 3704/3705 
Communications Controller, this byte 
contains the type number of the 



Eit 0: 

It 



5: 



7: 



Repcsi 

SYSPCH 
assign 
SYSPCH 
assign 
SYSIPT 
assign 
SYSIPT 
assign 
SYSRDR 
assign 
SYSRDR 
assign 
SYSPCH 
assign 
SYSPCH 
• assign 
SYSIPT 
assign 
SYSIPT 
assign 
SYSRDR 
assign 
SYSRDR 
assign 



ticnin 

tempo 
ed to 

tempo 
ed tc 

tempo 
ed tc 

tempo 
ed tc 

tempo 
ed tc 

tempo 
ed tc 

perira 
ed tc 

perira 
ed tc 

perira 
ed tc 

perrra 
ed tc 

perira 
ed tc 

perira 
ed tc 



g required 
rarily 
hcpper 1 
rarily 
hcpper 2 
rarily 
hcpper 1 
rarily 
hcpper 2 
rarily 
hcpper 1 
rarily 
hcpper 2 
nently 
hcpper 1 
nently 
hcpper 2 
nently 
hcpper 1 
nently 
hcpper 2 
nently 
hopper 1 
nently 
hopper 2 



Channel Scheduler Flags 



Bit 


1 


= 


Device busy 


1 


: 1 


= 


Switchable device 


2 


1 


= 


EOJ for SYSRDR or SYSIPT 


3 


: 1 


= 


I/O error queued for 
recovery 


a 


: 1 


= 


Operator intervention 
required 


5 


: 1 


— 


Device End posting 
required 


6 


: 1 




Burst cr overrunable 
device on Byte MPX 
channel 


7 


1 


= 


7-track tape unit 



Job Control Flags 

Bit 0-4: Standard MODE assignment 

for 7-track tape (all ones 
if not tape, all zeros if 
device is down) 
5: 1 = DASD device with 

disconnect command 
chaining feature 
6-7: B'll' (both en) = Headqueue 
in progress* 
B* 01' = Headqueue 
requested* 

*No I/O is started on a PUB 
or copied PUB that has 
both these switches on. 
If only bit 7 is en I/O 
can be started after seek 
separation. 
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Notes; A null entry is generated at 
supervisor generation time for each device 
to be supported by the supervisor. Then 
standard physical unit assignments are made 
to the PUB table. Physical unit 
assignments can also be made during IPL. 
PUBS are ordered by channel and priority 
within a channel. 



An entry in the PUB Ownership Table is 
associated with each entry in the PUB 
Table, if the supervisor has been generated 
to support multiprogramming. 



TEBTAB 



^B 
-a-^ 



C 03 

a c 

Q> O 

h- CD 



TEB 1 



TEB2 



TEB 3 



TEB 4 



TEB 5 



TEB 6 






1 


2 


3 


4 


5 



Bytes 64-65 (X'ao* - X'41') of the 
partition communication region contain the 
address of the PUB Table entry. Label 
PUBTAB identifies the first byte of the 
table. 



Figure 61. Tape Error Block (TEB) Table 



Bytes; 



0: Errcr recovery retry count. 



1; Permanent read data check error 
count. 



2; Number of times the read data check 
errcr routine is entered. 



3: Number of times the write data check 
error routine is entered. 



4: Write skip (erase gap) count. 



5: Noise record count- 



Cne TEB is generated for each 2495 Tape 
Cartridge Reader unit if the FOPT macro 
contains the TEB=n parameter. Job Control 
resets each TEB at ncrmal or abnormal 
End-of-Job. An unused TEB contains HEX 
'FFCOOOOOOOOO*' . A TEB is referenced from 
byte 3 of a Tape Cartridge unit PUB. 



Bytes 70-71 (X'46' - X'47«) cf the 
partition communications re(5ion(s) contain 
the address of the TEB Table entry. Label 
TEBTAB identifies the first byte of the 
table. 
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CHANQ 



5i c 
ey> o 

.■£> 



P E 



Task requestor Identification 

LUB Displacement 

LUB Identification- 

Requestor Identification - 

Chain byte 

r-— CCB address 






1 


2 


3 


4 


5 


6 


7 



Format of any channel queue entry 

PUB *) 
byte 2 



LLELR*) pi££. 



Figure 62. 



Channel Queue Table (CHANQ) and 
Entry 



Bytes : 
0: 



Contains the displacement vvithin the 
channel queue of the next entry in 
the free list or in the list for a 
specific device, or X'FF' when it is 
the last entry in the free list cr a 
device list. 

1-3: Contains the CCB address for the 
specified device. 

4: Contains a code identifying the task 
making the I/O request. This one 
byte entry indicates to which task 
the CCB belongs, and is in the form 
X'nk* where: 



Contains pointer (displacement index) 
to the entire LUB table identifying 
the logical unit making the I/O 
request. This is doubled to get the 
actual displacement into the full LUB 
table. 

Contains X'FF' if the LUB is a 
programmer class, or the displacement 
within the partition LUB if it is a 
system class. (Not used by a non MPS 
Supervisor. ) 



7: Contains the displacement within the 
Pib table for the task requesting 
1/C, or X'FF' when the channel queue 
entry is in the free list. (Not used 
by a non MPS Supervisor.) 



*)_Notes: FLPTR: The free list pointer 
contains the displacement within the 
channel queue of the first entry in the 
free list or X'FF' when the channel queue 
is full. 



Byte 36 (X'24') of the System Communication 
Begicn (SYSCOM) contains the address of the 
Free List Pointer. label FLPTR identifies 
the location of the pointer (1 byte) . 



PUB byte 2: The PUB channel queue pointer 
contains the displacement within the 
channel queue of the first entry for a 
specific device. 



k = 



user storage protection key. 
(Attention or system task = 0, 
BG task = 1, FG tasks = 2-5 
depending on the number of 
partitions) . 

for Attention and all user 
ta sk s . 



Bytes 37-39 (X'25' - X'27') cf the System 
Ccmmunicaticn Region (SYSCOM) contain the 
address of the Channel Queue table entry. 
Label CHANQ identifies the first byte of 
the table. 



1 


for 


HAS 


2 


for 


PMGR 


3 


for 


SUPVR 


4 


for 


CRT 


5 


for 


ERP 


6 


for 


PAGEIN 



nk=FF for unused channel queue 
entries. 

If the I/O request is from a subtask, 
this byte does not identify this 
subtask, but the partition. 
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THTAB 



1 



3 4 



9 10 11 



CCB Address 



Address of held track 
(BBCCHH) 



-Chain byte 



Key of task - 
Flag and Counter - 



THFLPTR*) 
CD 



The length of the table is deter 
mined at supervisor generation time. 



11: Bit 0=1: Indicates a task is waiting 
for this track 



1-3: Unused 



4-7: Counter of nuirfcer cf holds 
on the track. (The nurrber 
of holds is one irore than 
this value.) 



*)lSlote: 



Figure 63. Track-Hold Table (THTAE) 



Bytes; 



Initially, pointer tc next sequential 
entry or X'FF* (table deliiriter) in 
last entry. ?lfter requests have been 
issued, this byte points to the entry 
for the next request for a track on 
the same device, or contains X'FF' 
(in entry for the last request), or 
it is a pointer in the free list 
chain. 



THFLPTR: The Track-Held Free List Pointer 
(1 byte) contains the 
displacerrent within the 
Track-Hold Table of the first 
entry in the free list or X'FF' 
when the Track-Hold Table is 
full. 



Bytes 77-79 (X'4D' - X ' 4F ' ) cf the System 
Communication Region (SYSCOM) contain the 
address cf the Track-Held Table. Label 
THTAB identifies the first byte cf the 
table. 



1-3: Address of CCB associated with the 
task requesting the hold. 

4-9: Disk address of the track being held 
(in the form EECCHH) . 



10: Key cf the task owning the track. 



Byte 76 (X'4C') of the System Communication 
Region (SYSCOM) contains the address of the 
Track- Hold Free List Pointer. Label 
THFLPTR identifies the location cf the 
pointer. 



The half-word at THTAB-2 contains the total 
number of 12-byte entries comprising the 
Track-Hold Table. 
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SYSCOM 







4 
4 


8 
8 


OA 
10 


OC 

12 


10 
16 


14 
20 


18 
24 


Address of 
Error Block 


Address of 
Attention Exit 


Address of 

Operator 

Option 

Cancel Exit 


Address of 

Operator 

Request 

Cancel Exit 


Address of 
SYSRES PUB 


Address of 
Fetch Routine 


Address of 
I/O Interr. Routine 


Address of 
Ext. Interr. Routine 


xxxx 


xxxx 


XX 


XX 


xxxx 


.AS^X 


xxxx 


xxxx 



IC 

28 


20 
32 


24 
36 


25 
37 


28 
40 


2A 
42 


2C 
44 


2E 
46 


30 

48 


34 
52 


Address of 

Logical Transient 

Area 


Address of 

1st byte of 

Problem Program 

Area 


Free 

List 

Pointer 


Address 

of 
Channel 
Queue 


Number of 
Channel 
Queue 
Entries 


Length of 
One Error 

Queue 

Entry 


Number of 
Partitions 


Not used 


Address of 
Channel Buckets 


Address of 
CRT Table 


xxxx 


xxxx 


X 


XXX 


XX 


XX 


XX 


XX 


xxxx 


xxxx 



38 
56 


3C 
60 


40 
64 


44 
68 


46 
70 


48 
72 


4C 
76 


4D 
77 


50 
80 


Address of 
SAB Table 


Address of 

Channel Control 

Table 


Flags and 

Switches 

(See expansion ) 


System Task 

Selection 

Control Field 


Address of 

Task 
Selection 


Address of 
PD Area 


TH 

Free 

List 

Pointer 


Address 

of' 
TH Table 


Address of 
Timer Request 

Table 


xxxx 


xxxx 


xxxx 


XX 


XX 


XXXX 


X 


XXX 


xxxx 



54 
84 


58 
88 


5A 
90 


5C 

92 


60 
96 




64 
100 


68 
104 


6C 

108 


70 
112 


Address of 
AB Table 


Key of Task 

owning LTA 

(LIK) 


Key of Task 
running 

(TIK) 


Address of 
POWER Table 


Resorved 


Address of 
RF Table 


Address of 
EU ECB Table 


Add'-ess of 
OLTEP bucket 


Address of 

RAS Linkage 

Area 


xxxx 


XX 


XX 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 



74 
116 


78 
120 


7C 
124 


80 
128 


84 
132 


88 
136 


8C 
140 


90 
144 


Address of 
ASCII 

Translate Table 


Address of 

PUB Ownership 

Table 


Address of 
Job Accounting 
Common Table 


Base Address of 
Page Management 

Routine 


Base Address of 
Channel Program 
Translation Routine 


Address of 

SDAID 

Comm, Area 


Address of 
Line Mode Table 


Address of VSAM 

Communication 

Area 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 



94 
148 


98 
152 


9C 
156 


AO 
160 


Al 

161 


A2 

162 


A3 

163 


A4 
164 


A5 
165 


A6 

166 


A7 
167 


Address of PTA 


Address of first 
System Task Block 


Address of Task 

Block of Active 

System Task 


1 byte for 
Alignment 


Pointer to 

RAS Task 

Block 


Pointer to 

PMGR Task 

Block 


Pointer to 

SUPVR Task 

Block 


Pointer to 

CRT Task 

Block 


Pointer to 

ERP Task 

Block 


Pointer to 
PAGEIN 
Task Block 


Reserved 
(9 X'OO') 


xxxx 


xxxx 


xxxx 


X 


X 


X 


X 


X 


X 


XXXXXXXXXX 


XXXXXXXXX 



BO 
176 


B4 
180 


B8 
184 


BC 
188 


BE 
190 


CO 
192 


CB 
203 


CC 

204 


CE 
206 


Not used 


Address of 
MVCFLD 


Not used 


Not used 


Not used 


Repositioning Information 
tor MFCM ERP 


Number of 

Error Queue 

Entries 


Length of 

PUB Table 

in bytes 


Number of 
Active 
Partitions 


xxxx 


xxxx 


xxxx 


XX 


XX 


xxxxxxxxxxx 


X 


XX 


XX 



DO 
208 


D4 
212 


D8 
216 


DC 
220 


EO 
224 


E4 
228 


E8 
232 


EC 
236 


Address of 
Segment Table 


Address of 
Page Frame Table 


Address of 

Page Frame Table 

Extension 


Address of 
Boundary Box 


Address of 
DPD Table 


Reserved 


Address of 
VIRTAD Routine 


Address of 
End of Real Storage 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 


xxxx 



FO 
2 40 


F4 
244 


F5 
2 45 


FB 
248 


Address of 
Fetch 
Table 


SVA Flag 
(see ex- 
pansion) 


Address 
of SVA 


Address 
of System 
GETVIS AREA 


xxxx X 


XXX 1 xxxx 1 



*See next page for further explanation. 



Figure 64. System Comirunicaticns Region (SYSCOM) (Part 1 of 2) 



276 DOS/VS Serviceability Aids 



l2iE§Il§i2Il_2l_§I§22^_Ei^3_§Ytes 



r 


-y ^ 




1 Byte 






1 Dec Hex 




Description 


L 


_ 1 




r 


t 




1 64 40 


1 Reserved for RMS in Model 115 and 125 




1 X'80« 


RMSR for channel attached devices, tapes and TP devices 




j X'40' 


Full RMS support (MCAR/CCH and RMSR) 




1 X'20' 


MCAR/CCH suppcrt 


1 65 41 


1 X'BO' 


Initial selection of ERP 




1 X'40' 


Reserved 




1 X'20' 


Timer interrupt pending 




1 X'lO' 


MICR Stacker-select active 




1 X«08« 


Invalid address during fetch 




1 X'04'' 


SIO routine entered after interrupt 




1 X'06' 


Reserved 




1 X'Ol* 


IPL in progress 


1 66 42 


1 X«80« 


Initial RAS request 




1 X'40* 


RAS Wait request outstanding 




t X«20' 


RAS IPL in progress 




1 X'lO' 


Reserved 




1 X*08' 


POWER supported 




1 X«06' 


POWER initialized 




1 X'02' 


GETREAL for SDAID or PDAIC in progress 




1 X'Ol' 


Fetch for system task in progress (used by PDAID) 


1 67 43 


1 Reserved 


1 244 F4 


1 SVA Fl 


ag 




j X'OO' 


Do not test fcr warir start copy of SVA 




1 X'40- 


SDL active 




1 X'20« 


No 'Set SVA' cr 'set sDL* allcwed 




1 X^IC 


Build of SDL in progress 




1 X'OS" 


SDL overflow 




1 X'04' 


Reserved 




1 X'02« 


Reserved 




1 X'Ol* 


Reserved 



L 



^_X- 



, , J 



Layout of System Task Selection Control Field 



1 Byte 








j Dec Hex 


_4._ 




Description 


r 


T~ 






1 68 44 




Always zero 




1 69 45 


1 SELECT 


byte: 






1 X'OO' 


No system task active 






1 X'Ol" 


RAS active 






1 X'02' 


PMGR active 






1 X«03« 


SUPVR active 






1 X'04' 


CRT active 






1 X'05« 


ERP active 






1 X"06' 


PAGEIN active 





L X 



J 



Note: The address of SYSCCM can be found at fixed Iccation X'80' - X'83'. 
Figure 64. System Comirunications Region (SYSCCM) (Part 2 of 2) 
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nnCOMREG 



X u 







8 
8 


OA 
10 


OC 
12 


17 
23 


18 
24 


20 
32 


24 
36 


28 
40 


2C 

44 


Date 


Address of 
PPBEG 


Address of 
EOSSP 


Problem Program Use 


UPSI 
Byte 


Job Nome 


Highest 

Storage 

Address of 

the Partition 


End Address of 

Last Phase 

Fetched or loaded 


Address of upper- 
most Byte of Phase 
with highest 
Ending Address 


Label 

Area 

Length 


xxxxxxxx 


XX 


XX 


XXXXXXXXXXX 


X 


XXXXXXXX 


xxxx 


xxxx 


xxxx 


XX 



2E 
46 


30 
48 


34 
52 


35 
53 


36 

54 


37 
55 


38 
56 


39 
57 


3A 

58 


3B 
59 


3C 
60 


3E 
62 


PIK 


End of 
Virtual 
Storage 
Address 


Machine 

Configur. 

Byte 


System 

Configur. 

Byte 1 


Standard 

Language 

Translator 

I/O Options 


Dump, Log, 

RELLDRand 

ASCII 

Options 


Job Control 
Byte 


Linkage 

Control 

Byte 


Language 

Translator 

Control 

Byte 


Job Duration 
Indicator Byte 


Disk Address 

of 
Label Cylinder 


Address 

of 
FOCL 


XX 


xxxx 


X 


^ 


X 


X 


X 


X 


X 


X 


XX 


XX 










"^ • Job Control Switches ' 





40 
64 


42 
66 


44 
68 


46 
70 


48 
72 


4A 

74 


4C 
76 


4E 
78 


4F 
79 


58 
88 


5A 
90 


5C 
92 


Address 

of 
PUBTAB 


Address 

of 
FAVP 


Address 

of 
JIBTAB 


Address 

of 
TEBTAB 


Address 

of 

FICL 


Address 

of 

NICL 


Address 

of 
LUBTAB 


Line Count 

for 

SYSLST 


System Date 


LIOCS 
Comm. 
Bytes 


Address of 1st 

Part of 

PIB Table 


ID Number of 

last Checkpoint 

or DASDFP 

Indicator 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


X 


XXXXXXXXX 


XX 


XX 


XX 



5E 
94 


60 
96 


62 
98 


64 
100 


66 
102 


68 
104 


6A 
106 


6C 
108 


6E 
110 


Job Zone 

in 
Minutes 


Address of Disk 
Information 
Block (DIB) 


Reserved 


Address of PC 

Option Table 

less 8 bytes 


Address of IT 

Option Table 

less 8 bytes 


Address of OC 

Option Table 

less 8 bytes 


Key of Program 

with 
Timer Support 


Reserved 


Logical 
Transient Key 

(LTK) 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 



70 
112 


74 
116 


78 
120 


7C 
124 


7E 
126 


80 
128 


84 
132 


86 
134 


87 
135 


Address of 
SYSPARM 


Address of 

J. A. Partition 

Table 


Address of 

TOD clock 

Common Area 


Address 
of 2d part 
of PIB Table 


Address 

of MICRDTF 

Table(PDTABB) 


Address 

of QTAM 

Vector Table 


Address 

of BG Comm. 

Region 


Option 
Indicator 


System Configuration 
Byte 2 and RMSR 
Open Flag Byte 


XXXX 


xxxx 


xxxx 


XX 


XX 


XXXX 


XX 


X 


X 



88 
136 


8C 
140 


8D 
141 


8E 
142 


8F 
143 


97 
151 


98 
152 


9F 
159 


Pointer to Option 
Table in SYSCOM 


Standard Options 


Temporary 
Options 


Disk 
Configuration 


Catalog 
Procedure Name 


Switch for 

Catalog 

Procedure 


JCL 

Statement 
Name 


81 bytes 
SYSIN Indicator 


XXXX 


X 


X 


X 


XXXXXXXX 


X 


xxxxxxx 





Note: A communication region exists from each partition supported by the system. 

The address of the communication region of the active partition is in fixed loc. X'14'-X'17'. 

Figure 65. Partition Comraunicaticns Region (Part 1 of 6) 
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Key to Comitiunication Region ^Displacement 



r — ^~T- 

|Key| 



Description of Use 



MM/DD/YY or DD/MM/YY either set periranently by the job control date statement ^ or 
updated every time a GETIME macro is issued when Time-of-Day support is provided. 
Format controlled by EGCOMPEG+53. (Systeir Configuration Byte, date convention 
bit 0,) 



8 
10 

12 

23 
24 
32 



36 



40 



44 
46 

48 
52 



53 



?^ddress of the problem program area. 

?lddress of the beginning of the problem program area (see above). Y(EOSSF) equals 
Y(PPBEG) 

User area. If seek separation option is specified, bytes 12 and 13 are used at IPL 
time for the address of the seek address 'block. 

User program sv^itch indicator. 

Job name set by the job control program from informiation found in the job statem.ent 

Address of the uppermost byte available to the problem program, that is, either the 
address of the uppermost byte of the partition as determined during processing of 
the ALLOC or ALLOCR macro or statement, or the end address of the area specified by 
the SIZE parameter in the EXEC statement. 

Address of the uppermost byte of the last phase of the prchleir prcgram fetched or 
loaded. Not filled in when phase is in SVA. 

Highest ending real storage address of all the phases having the same first four 
characters as operand on the EXEC statement. For the phase $LNKEDT, this field is 
not filled in. The address value may be incorrect if the program loads any of this 
phase above or below its link-edited crigin address. If the EXEC statement has no 
operand, job control places in this location the highest ending address of all 
programs just link-edited. 

Length of the problem program label area. 

Partition Identification Key (PIK) . The Icw-crder byte identifies the active 
partition. Only significant for EG communication region. 

End address of virtual storage. 

Machine Configuration Byte (values set at supervisor generation time) . 

Bit 0: Always set to indicate standard storage protect 
1: 1 = Decimal feature (always set) 
2 : 1 = Floating-point feature 

= No floating-point feature 
3 : 1 = Physical transient overlap option 

= No physical transient overlap cption 
4 : Always set to indicate standard timer feature 
5: 1 = Channel switching device 

= No channel switching device 
6: 1 = Burst mode on multiplex channel support 

= No burst mode on multiplex channel support 
7: Indicates MCH/CCH in system 

System Configuration byte. 

Bit 0: 1 = DDMMYY (Date ccnventicn bit set at generation time by STDJC) 
= MMDDYY (Date convention bit set at generation time by STDJC) 
1: 1 = Two or more partitions 
= One partition only 



Figure 65. Partition Comttiunications Region (Part 2 of 6) 



Appendix B: Reference Figures 279 



I Key I 
I- +- 



Description cf Use 



53 System Configuration byte (Cont'd.) 
1 ~ DFVSD file-protect supported 

= No file-protect support for DhSD 

1 = DA.SD SYSIN - SYSCUT 

= No DASD SYSIN - SYSOQT 

1 = Teleprocessing 

= No teleprocessing 

1 = Two or more partitions 

= One partition only 

1 = .^^synchronous processing 

= No asynchronous processing 

1 = Track Hold 

= No Track Hold 

This byte contains the standard language translator I/O options (set by STDJC 
macro) . 



54 



55 



56 



Bit 0: DECK option 1 = 

1: LIST option 1 = 

2 : LISTX option 1 = 

3: SYM option 1 = 

4: XREF option 1 = 

5: ERRS option 1 = 

6: CHARSET option 1 = 

7 : Reserved 



yes, output cbject rrcdules on SYSPCH 

yes, output source module listings and diagnostics on 
SY3LST 

yes^ output hexadecimal object module listings on SYSLST 
(ccmpilers cnly) 

yes, output syirbol tables on SYSLST/SYSPCH 
yes, output syirbclic cress-reference list en SYSLST 
yes, output diagnostics on SYSLST (compilers only) 
^Sg input en SYSIPT is '!8 or 6 character set 



This byte contains the standard supervisor options for abnormal ECJ, Relocating 
Loader and Control statement display and the indicator for the presence cf the 
ASCII-EECDIC and EBCDIC-ASCII translation tables- 



Bit 0: Always set 
1: DUMP option 
2: 



LOG option 

Not used 
Relocating 

Load option 
ASCII option 



1 = yes, dump registers and storage on SYSLST 

1 = partition in wait state, because a volume is tc be 

ircunted 
1 = yes, list all control statements on SYSLST 
1 = duirmy device search in progress; dc not enter ERP 



1 = yes. Relocating Loader supported 
1 = yes, ASCII supported 



Job Control byte. 



Bit 0: 


1 







1: 


1 







2: 


1 







3: 


1 







4: 


1 







5: 


1 







6: 


1 







7: 


1 








Job Accounting Interface (JA) not supported 

Job Accounting Interface (JA) is supported 

Return to caller on LIOCS disk open failure 

Do not return to caller on LIOCS disk open failure 

Job Control input frcm SYSRDR 

Job Control input from SYSLOG 

Job Control output on SYSLOG 

Job control output not on SYSLOG 

Cancel job 

Do not cancel job 

Pause at End-of-Job step 

No pause at End-of-Job step 

SYSLOG is not a console printer-keyboard or DOC 

SYSLOG is a ccnscle printer-keybcard cr DOC 

SYSLOG is assigned to the same device as SYSLST 

SYSLOG is not assigned tc the saire device as SYSLST 



Figure 65. Partition Communications Region (Part 3 of 6) 
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r — ^-T- 

|Key| 



Description of Use 



57 j Linkage control byte. 

Bit 0: 1 = SYSLNK open for output 

= SYSLNK not open for output 
1: 1 = Update of Second Level Directory and RAS Load list in progress 

(interface between $MAINDIR and supervisor) 
2 : 1 = Allow EXEC 

= Suppress EXEC 
3: 1 = Catalog Linkage Editor output 

= Do not catalog Linkage Editcr output 
4 : 1 = Supervisor has been updated 

= Supervisor has net been updated 
5 : Reserved 
6: 1 = Update of Systeir Core Iirage Library in program (interface between 

$MAINDIR and Supervisor) 
7: 1 = Check automatic condense limits and End-of-Job (interface bet^-een 
Librarian and Job Control) 

Language processor control byte. This is a set of switches used to specify 
nonstandard language translator options. The switches within the byte are 
controlled by job control OPTION statements and when set to 1, override standard 
options. The format of this byte is identical to the standard option byte 
(displacement 54) with one exception: Bit 7 in this byte is used to indicate to 
LIOCS that the rewind and unload option has been specified. 

Job duration indicator byte. 

Bit 

1 



59 



60 
62 
76 
78 
79 

88 
90 



1 = Job in progress 

= No job in progress 

1 = Dump on an abnormal End-of-Jot condition 

= No dump on abnormal ECJ 

1 = Pause at EOJ step (Set by attention routine for Job Control) 

= No pause at EOJ (Set by attention routine for job Control) 

1 = Job control output on SYSLST 

= Output not on SYSLST 

1 = Job is being run out of sequence with a temporary assignment for SYSRDR 

= Conditions for 1-setting net met 

1 = PCIL is being condensed 

= PCIL is not being condensed 

1 = //DATE statement processed for current job 

= No //DATE statement processed fcr current job 

1 = Batch command just issued 

= Condition fcr 1-setting did net occur 



Binary disk address of the volume label area (label cylinder) . 

As illustrated (for detailed figures see DOS/VS Supervisor Logic , SY33-8551). 

As illustrated (for detailed figures see DOS/VS Supervisor Logic, SY33-8551). 

Set to the value nn specified in the LINES=nn parameter of the STDJC macro. 

The format of the system date contained within this field is determined by the IPL 
program from information supplied in the date convention bit (displacement 53) . 
Bytes 85-87 contain the day count. 

Bytes reserved for use by LIOCS. Transient dump programs insert a key to indicate 
to the LIOCS End-of-Volume routine, $$ECMT07, that it was called by a B-transient. 

Address of the first part of the Program Information Block (PIB) table. 
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I Key I 



Description of Use 



92 



94 

96 

98 
100 
102 
104 
106 

108 
110 

112 
116 
120 
124 
126 
128 
132 
134 



ID number of the last checkpoint. Byte 92 is also the temporary indicator of file 
protected DASD. 

Bits 0-6 correspond to channels 0-6. A bit ON ireans DASDFP for that channel. 
Bit 7 indicates 2321 DASDFP support. Byte 93 is used at IPL time by PIOCS. 

Bit 0: 1 = 3330 file protection 
1: 1 = 3340 file protection 

Job zone for Time-of-Day. If ZONE=EAST^ value is pcsitive; if ZONE=WEST, value 
is negative. 

Address of disk I/O position data. This is the starting address of the Disk 
Information Block (DIB) table for the partiticn- 

Reserved. 

PC option table (zero if net specified). 

IT option table (zero if net specified). 

OC option table (zero if net specified). 

X'OOIO' if interval timer support. 
X'OOOO' if no interval timer support. 

Reserved. 

Logical Transient Key (LTK) contains the same value as the PIK (PID) (Displacement 
46) when the logical transient is requested. When the transient area is not in 
use, LTK is equal to zero. The SVC 2 routine sets the LTK. The SVC 11 routine 
resets the LTK. (Only significant in EG ccmmunicaticn regions.) 

Address of SYSPARM field. 

Address of Job Accounting partition table. 

Address of the Time-of-Day Clock commcn area. 

Address of second part cf Program Infcrmatien Block (PIB) table. 

Address of PDTABB, table of DTP addresses for MICR support. 

Address of QTAM vector table (IJLQTTAD) . 

Address of background ccmmunicatiens regicn. 

Option Indicator byte. 



Bit 0: 
Is 

2: 

3: 

4s 
5: 

6: 

7; 



Reserved 

1 = EQ interface active 

= EU interface inactive 

1 = Teleprocessing request 

= No teleprocessing request 

1 = Supervisor support for tape 

= Supervisor does net support tape 
Reserved 

1 = RETAIN support generated 

= RETAIN support not generated 

1 = Linkage to Channel End Appendage Routine allowed 

= T.inksge to Channel End Appendage Routine not allowed 

1 = GETVIS function has been initiated 

= GETVIS function has not been initiated 
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Description of Use 



135 



136 
140 



141 



142 



143 
151 



152 
159 



Systeiti Configuration byte 2 and RMSR Open Flag byte. 



Bit 
1 
2 
3 
4 
5 
6 
7 



1 = PCIL supported 

1 = TOD~clock supported 

1 = PFIX macro supported 

1 = Fetch $$BCPEN by $JOBCTLJ 

1 = Fetch $$BOPEN by $JOBCTLD 

1 = Fetch $$BCPEN by $JOBCTlJ fcr WTM 

1 = QT?\M supported 

Reserved 



Pointer to Option table in SYSCOM Reserved for ccirpatibility reascns. 
Standard Job Control Cption byte. 



Bit 

1 

2 

3-7 



1 = EDECK Standard Option 
1 = ALIGN Standard Option 
?\CANCEL Standard 
Not used 



Temporary Job Control Option byte. 



Bit 

1 

2 

3-7 



1 = EDECK Temporary Option 
1 = ?^LIGN Temporary Option 
1 = ACANCEL temporary 
Not used 



Disk Configuration byte. 



Bit 0-4 
5 
6 
7 



Not used 

1 = 3340 supported 

1 = 3330 supported 

Always 1; indicates 2311 and 2314/2319 supported 



Cataloged Procedure Name. 

Interface byte for Cataloged Procedures, 



Bit 
1 
2 
3 
4 
5 
6 
7 



1 = Procedure being executed 

1 = Overwrite processing 

1 = Procedure with data 

1 = Overwrite request for Job Ccntrcl 

1 = Insert request for Job Control 

1 = Procedure end 

1 = SYSLOG procedure 

1 = Overwrite request for Supeviscr 



JCL statement name for Cataloged Procedure. 
SYSIN 81 bytes indicator. 



Bit 
1 
2 
3 
4-6 
7 



1 = Permanent 81 bytes on SYSRDR 
1 = Permanent 81 bytes on SYSIPT 
1 = Temporary 81 bytes on SYSHDR 
1 = Temporary 81 bytes on SYSIPT 
Not used 
1 = Allow /S for MAINT CATALS 
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PIBTAB 



Attention PIB 



Background PIB 



FG4 



PC 3 



FG2 



FG I 



PIB 



PIB 



PIB 



Subtask PIB 



Subtask PIB 



10 



12 



13 



14 



15 



E 



Flag 


Cancel 


SYSLOG 


Always 


lnactive= Zero 


Switch 


Address of Save Area 


X'07' 


BG 


Number 


Not 


Byte 


Code 


ID 
(AR) 


Zero 


Actlve= Address 
of LTA Save Area 


Byte 


or Zero 


PIB 

Assign 


User 
LUB 


of BG 

Program 


used 


(See@) 








(Note 2) 


(SeeB) 


(Note 1) 
(Note 2) 


Flag 
(Seei) 


Index 


LUBs 





\ 

\ 





1 


2 3 


4 


5 6 7 


8 


9 10 


11 


12 


13 


14 


15 


Format of any 
1 Probl. Program 
] or Subtask PIB 


Flag 
Byte 

(SeeS) 


Cancel 
Code 


SYSLOG 
ID 


DAT 

Flag 

(Seei) 


Address of Problem 
Program Save Area or 
LTA Save Area 

(Note 3) 


Gate 
ID 

(See0) 


Address of System 
Area 


Save 


PIB 

Assign 
Flag 

(SeelB) 


User 
LUB 

Index 


Number 

of 
Program 

LUBs 


Flag 
Byte 

[Seed) 



Notes : 

1. a. When LTA is inactive = LTA save 

area address. 

b. When LTA is active for Problem 

Programs^ this address is exchanged 
with that in the Problem Program 

PIB. 

2. When LTA is active for Logical 
Attention^ bytes 9-11 are zero and 
bytes 5-7 contain the LTA save area 
address. 

3. When the Logical Transient Area is 
active the save area address in the 
Problem Program PIB is exchanged with 
that in the Attention PIB. 

The number of Problem Program PIEs 
generated depends on the number of 
partitions specified during system 
generation. Subtask PIBs are generated 
only if AP=YES has been specified during 
system generation. The number of subtask 
PIBs generated depends on the number of 
partitions, that is: 

J. -J. ^ 

I Number of Partitions | Number of Subtasks j 
|. 4 ^ 

I 2 I 13 I 

I 3 I 12 I 

I 4 I 11 I 

I 5 I 10 I 

L - JL J 



Bytes 90-91 (X'SA* - X*5E') of the 
partition communication regicn(s) contain 
the address of the PIB table. Label PIBTAB 

identifies the first byte of the table. 



^ il§3_5l£§_iFil§t__by t e_i n__P IB ) 



The following flags are always used: 



X'71' = Program is waiting for SVC 58 
X'73' = Program is waiting because 

system is seized 
X'75" = Program is waiting fcr copy 

block 
X'77' = Program is waiting fcr TFREE 
X'79* = Program is waiting fcr channel 

queue entry 
X'7B* = Program is waiting fcr CCW 

translation 
X*7D' = Program is waiting fcr free 

console buffer table entry 

(used only when CBF=n) 
X'80' = Program is net active 
X'81' = Program is SVC 2-bound (waiting 

for the LTA tc be released) 
X'82' = Program is SVC 7-bound (waiting 

for an I/O interruption) 
X*83' = Program is ready tc run 
X'85' = Program is SVC 5-bound (waiting 

for the PTA to be released) 
X'86' = Initial selection of RAS (used 

only for RAS PIB Flag) 
X'87' = Program is set tc common bound 

condition 



O O I 



P-Lugram Intormation Block (PIB) Table (Part 1 of 2) 
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The following flags are used only if 
NPARTS>1. X«61' through X'69' are used 
by the load leveller to deactivate a 
partition. The partition to ^hich a 
flag refers depends on NPARTS as 
follows: 

NPARTS= 

2 3 4 5 



X'61« 
X'63' 
X'65' 
X'67' 
X'69' 



refers to 
refers to 
refers to 
refers to 
refers to 



BG 
Fl 



EG 
F2 
Fl 



BG 
F3 
F2 
Fl 



BG 
F4 
F3 
F2 
Fl 



X'6B' = Program is SVC 35-bound 
X'6D' = Prograin is waiting for next 

freed page frame 
X'6F* = Program is IDRA-bound 

The following flags are only used if 
AP=YES : 

X'51' = Program is SVC 38-bound 
X'53* = Program is SVC 41/42-bcund 

The following codes are only used if 
AP=YES and PFIX=YES. The codes are 
used by the PFiX routines to set a 
partition PFIX-bound. The partition to 
which a flag refers depends on NP?^RTS 
as follows: 

NPARTS= 
2 3 4 5 



X 


47' 


refers 


to 


BG 


BG 


BG 


BG 


X' 


49« 


refers 


to 


Fl 


F2 


F3 


F4 


X 


4B« 


refers 


to 


- 


Fl 


F2 


F3 


X' 


4D' 


refers 


to 


- 


- 


Fl 


F2 


X' 


4F« 


refers 


to 


- 


« 


- 


Fl 



The following codes are used only if 
AP=YES and VS?\M=YES. The cedes are 
used by the VSA.M routines to set a 
partition PFIX-bound. The partition to 
which a flag refers depends on NPARTS 
as follows: 

NPARTS= 
2 3 4 5 



X'3D' 


refers 


to 


BG 


BG 


EG 


BG 


X'3F« 


refers 


to 


Fl 


F2 


F3 


F4 


X'41' 


refers 


to 


- 


Fl 


F2 


F3 


X'43'' 


refers 


to 


- 


- 


Fl 


F2 


X'45' 


refers 


to 


- 


- 


- 


Fl 



The following flag is only used when 
CBF=n: 

X'7D" = Program is waiting for free 
console buffer table entry. 

The following flag is only used when 
TP=QTAM: 

X'8B' = Task in QTAM wait. 



B PIE DAT Flag 

X'Ol' = Return to reentrant supervisor 

routine 
X'02* = Return to gated supervisor 

routine 
X'04' = Move CCB at dispatching tiin'e 
X'08* = Service delayed external 

interrupt 
X'lO' = Deactivation of this task is 

being delayed 
X'20' = Reserved 

X*40' = Task has seized the systerc 
X'80' = Program is running in virtual 

mode 

C Gate Identifier 

X'71' = Gating of SVC 58 required 
X'53' = Gating of SVC 41/42 required 

The flags are only used if the PIB DAT 
Flag is X'03', that is, the first two 
flags are on. (See E .) 

D PIB Assign Flag 

X'80' = SYSRES DASD file protect 

inhibited (allow write 

operation en SYSRES) 
X'40' = Channel appendage exit allowed 

(ETAM) 
X'20' = Cancel in progress (used in 

terminator function) 
X'lO* = Cancel control (set on a 

foreground cancel) 
X'08' = Hold foreground assignments 
X'07' = Attention PIE 

E II£3MII_EI29lIM_5I5_I113 (Last byte in 
PIB) 

Bit 0: 1 = Batched jcfc in foreground 
(always on when tested) 
1: 1 = Cancel in LTA and device 

not assigned 
2: 1 = /& on SYSIN if DASD 
3: 1 = Partition in stopped state 
4: 1 = Fetch EOJ monitor 
5: 1 = Task is canceled 
6: 1 = Subtask(s) attached 
7 : 1 = in AE routine 

^ Attention Pig _ Switch _Byte 



Bit 0: 
1: 



Reserved 

1 = Fetch Physical Attention 

Transient $$ABERRZ 
1 = Delay cancellaticn (fetch 

$$ABERZ1) 
1 = Emergency cancel request 
Reserved 

1 = Command available (DOC) 
1 = Fetch Logical Attention 

Routine ($$BATTNA) 
1 = External Interrupt request 



Figure 66. Program Information Block (PIB) Table (Part 2 of 2) 
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^ ,^^^^^^. ^ ^ 

1 jDevice- | 
Card Code | Actual IBM Device |Type x'nn'j Device Type 


T T T - - _ 

2400T9 i 9~track Magnetic Tape units | 50 | 

240017 1 7-track Magnetic Tape units | 50 | 

3410T9 1 9~track 3410 Magnetic Tape units | 53 [Magnetic Tape 

341017 |7-track 3410 Magnetic Tape units | 53 | 

3420T9 1 9-track 3420 Magnetic Tape units | 52 | 

3420T7 |7-track 3420 Magnetic Tape units | 52 | 

1 1 + 

2495TC 1 2495 Tape Cartridge Reader | 51 |Tape Cartridge Reader 
^„+ ^ 1_-«> 4 

1442N1 I1442N1 Card Read Punch | 30 | 
2520B1 1 2520B1 Card Read Punch | 31 | 

2560 1 2560 Multifunction Card Machine | |Card Read punches 
2596 12596 Card Read Punch | 30 | 
3525RP 1 3525 Card Punch (with optional read | 32 | 
1 feature) | | 
5425 (Multifunction Card Unit | 34 | 
_ i _ X _ J. -» «. -. „ _ 


2501 12501 Card Reader | 10 | 

2540R 12540 Card Reader | 11 jcard Readers 

3504 ! 3504 Card Reader | 12 | 

3505 |3505 Card Reader | 12 | 

4 1 4 ^„ 

2540P 12540 Card Punch | 21 j 

2520B2 I2520B2 Card Punch | 20 | 

1442N2 ! 1442N2 Card Punch j 22 jCard Punches 

2520B3 I2520B3 Card Punch | 20 | 

3525P 1 3525 Card Punch | 23 | 

1 4 4 

1403 |1403 Printer | 40 | 
1403U 1 1403 Printer with UCS feature | 42 | 
1443 |1443 Printer | 41 | 
2260 (local) 11053 Printer with 2548 Ccntrcl Unit. | CO | 

I MODE operand must be entered as X"01' | | 
3203 1 3203 Printer | 4A | 
3211 I 3211 Printer | 43 (Printers 
3277 13284 or 3286 Printer with 3272 Ccntrcl | BO | 
(local 3270) 1 Unit, MODE operand must be entered ( | 

|as X'Ol' 1 1 
3277B 13284 or 3286 Printer with 3272 Control | BO | 
(local 3270) (Unit, attached in burst mode tc a | | 

(multiplexer channel. MODE operand ( ( 

[must be entered as X'Ol' ( | 
5203 (5203 Printer | 4C | 
5203U [ 5203 Printer with UCS feature j 4D ( 
4 ^ 4 4 ^^^^^ 

1050A (3210^ 3215 Console Printer Keyboards | 00 [Printer Keyboards 
4 4 4 

125D [Model 115/125 Integrated Display | B2 [ 

i Operator console j | 
125DP [Model 115/125 Integrated Display | B2 [Display Operatcr 

(Operator Console with 5213 Console [ (consoles 

i Printer attached j | 



L X .^^^ .^ -L 



.-J. 



Figure 67. Device Type Codes (Part 1 of 2) 
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J. 


~T ' 


— T"~"~"" 




J. , 


1 




[Device- 


1 


|Card Code 


[Actual IBM Device 


[Typ 


e x'nn'l Device Type 


L , , 


_4._ . , ^__ ^_ , . , 


_ 1 




^j.__ , , . , . 


r — 


-^— — ^„ .-. — — 






— ^^_-_ — — — 


JUNSP 

1 

1 


[Unsupported device 




FF 


[Unsupported no burst 
[mode on multiplexer 
[channel 


JUNSPB 

1 

1 


[Unsupported device 




FF 


[Unsupported with burst 
[mode on multiplexer 
[channel 


L ^: 


_!. , ^. , „, , 


_j. 




± 


r 


T 


— [• 




— ^ 


12311 


1 2311 Disk storage device 




60 




1 2314 


1 2314 Direct-access storage facility 




62 




12314 


1 2319 Disk storage facility 




62 


[DASD 


1 2321 


[2321 Data cell drive 




61 




|3330 


[3330-1, 3330-2, or 3333-1 Disk storag 


e[ 


63 




1 3340 


1 3340 Disk Storage (General) 




68 




13340 


.[3340 Disk Storage with 3348 Model 35 




69 




13340 


(3340 Disk Storage with 3348 Mcdel 70 




6A 




L ^__ ^ ^__ 


„j. , . .^ , ^ 


L 




. J. 


j._ __ ^-»_ 


_-|. ^- — 






— .^ ^_ ^ 


[1419 


[1255 Magnetic Character Reader 




72 




11419 


1 1259 Magnetic Character Reader 




72 


[MICR-Magnetic Ink 


|1419 


[1419 Magnetic Character Reader 




72 


[Character Recognition 


I1419P 
1 


1 1419 Dual ?^ddress Adapter Primary 
1 Control Unit 




73 


1 devices 


I1419S 
1 


I 1419 Dual Address Adapter Secondary 
j Control Unit 




74 




L .^ __-.-_ 


_j ^ , 






X , , .^ 


|. ^„— 


_^ 


— "f— ' — — 




— ^ — .^ 


[2701 


[2701/2715 Data Adapter Unit 




DO 


[Teleprocessing lines 


1 A 








[A=SAEO command when 


1 B 


( 2702 Transmission Control Unit 




Dl 


[B=SAD1 command enabling 


12702 C 








|C=SAD2 command the line 


1 D 








[D=SAD3 command 


12703 


j 2703 Transmission Control Unit 




D2 




12703 
1 


(integrated Communication Adapter 
I (Models 125/135) 




D2 




12703 
1 


[3704/370*5 Communication Controller in 
1 Emulation Mode 




D2 




L 


_x , , 






L 


|. 


-- 1- 


— 'Y—"-'—' 




— r 


12955 

L , 


[2955 Data Adapter Unit 

_i . 




D7 


[Data Link for RETAIN 

__x . ^ , 


J. 


_^- 


"* i"""""" 




-->^ 


11017 
1 


1 1017 Paper Tape Reader with 2826 
I Control Unit 




78 


[Paper Tape Readers 


12671 


I 2671 Paper Tape Reader 




70 




L ^, 


.X ^ 


_J. 




L - 


J. ^. 


-^ 


T 




J. 


11018 
1 


[1018 Paper Tape Punch with 2 826 
[Control Unit 




79 


[ Paper Tape Punch 


L 


_i_ . , , 


_J. 




L , 


r 


-^— 


T 




1. 


11419 


[1270 Optical Reader/Sorter 




79 




I1419P 


1 1275 Optical Reader/Sorter 




73 




11287 


[1287 Optical Reader 




77 


[Optical Readers 


11288 


1 1288 Optical Page Reader 




77 




13881 


[3881 Optical Mark Reader 




11 




1 3886 


1 3886 Optical Character Reader 




7C 




L 


_1 


__L_ 




L 


r 


T 


J. 




T 


|3540 

1 


j 3540 Diskette Input/Output Unit 

_j , 


_ J 


80 


[Diskette 

1 . 


r — 


-.-f. 






— t 


12260 


[ 2260 Display Station 




CO 




13277 


3277 Display Station; 




BO 




j (local 327 0) 1 MODE operand need net be entered 








I3277B 


[3277 Display Station; attached in 




BO 


[Display Station 


((local 3270) 1 burst mode to a multiplexer channel. 








1 


[ MODE operand need not be entered 









„^ ^J^. + — I 



^ 

[7770 



I 7770 Audio Response Unit 
-X 



I 

-X- 



D3 



[Audio Response Unit 

-X , 



Figure 67. Device Type codes (Part 2 of 2) 
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Density 








Convert 








SS 


(Bytes per inch) 




Parity 




Feature 




Translate 


|Code * 




-4— 




_4. 




L 




L- 






T 




T 




T 




T 




200 




odd 




on 




off 




10 


200 




odd 




off 




off 




30 


200 




odd 




off 




on 




38 


200 




even 




off 




off 




20 


200 


-+- 


even 


-+- 


off 


-+■ 


on 


-+- 


28 


556 




odd 




on 




off 




50 


556 




odd 




off 




off 




70 


556 




odd 




off 




on 




78 


556 




even 




off 




off 




60 


556 


-J.- 


even 


.1 


off 


-J.. 


on 


-.J.- 


68 




T 




T 




T 




T 




800 




odd 




on 




off 




90 


800 




odd 




off 




off 




BO 


800 




odd 




off 




on 




B8 


800 




even 




off 




cff 




AO 


800 




even 




off 




on 




A8 


800 




dual 


density nine- 


track 




C8 


1600 




dual 


density nine- 


track 




CO 


6250 




nine- 


-track 3420 








DO 



.^^± J. J 



I- — — 

I * Refer to PUB Table (Figure 61)^ byte 5. 

L , , ^ . 



Figure 68, Density Data 
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-^„__ . ^^ 



Cancel 


Message 


Descriptive Part of Message 


Coc^e (hex) 


Code 

., .. 


(or Condition) 

__^__^ __. ____ 


10 


j^ „ , . 

1 Normal EOJ 


11 


0V07I 


No channel prograir. translation unsupported device 


12 


0V06I 


Insufficient buffer space for channel prograir translation 


13 


0V05I 


CCW ^ith ccunt greater than 32K 


14 


0V04I 


Page pool too small 


15 


0V02I 


Page fault in disabled program 


16 


OVOII 


Page fault in MICR stacker select or PHO routine 


17 


0S02I 


(Same as 23 but causes dump because suhtasks were attached 
when maintask issued CANCEL macro) 


18 


*""""""■ 


(Eliminates cancel message when maintask issues DUMP macro 
with subtasks attached) 


19 


0P74I 


I/O Operator Option 


lA 


0P73I 


I/O Error 


IB 


0P82I 


Channel Failure 


IC 


0S14I 


CANCEL ALL Macro 


ID 


0S12I 


Maintask Terminaticn 


IE 


C-313I 


Unknown ENQ Requestor 


IF 


0P81I 


CPU Failure 


20 


0S03I or 
OSllI 


Program Check 


21 


0S04I or 
0S09I 


Illegal SVC 


22 


0S05I or 
0S06I 


Phase Not Found 


23 


0S02I 


Program Request 


24 


OSOII 


Cperatcr Intervention 


25 


0P77I 


Invalid address 


26* 


0P71I 


SYSxxx Not Assigned (unassigned LUB code) 


27 


0P70I 


Undefined Logical Unit (invalid LUB code in CCE) 


28 





QTAM cancel in progress 


29 


0S15I 


No relocating loader support (Fetch or load request for 
relocatable phase while supervisor does not support 
relocating load) . 


2A 


OVIOI 


I/O error on page data set 


2B 


0P84I 


I/O error during fetch from private core image library 


2C 


0V09I 


Illegal parameter passed by PHO routine 


2D 


0P88I 


Program cannot be executed/ restarted due to failing storage 
block 



X 



-JL 



Figure 69. Cancel Codes and Messages (Part 1 of 2) 
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Cancel j 


Message 


Descriptive Part cf Message 


Code (hex) | 


Code 


(or condition) 


i 







T 






2E 1 


0S16I 


Invalid resource request (possible deadlock) 


2F 1 


0V03I 


More than 255 PFIX requests for 1 page 


30 1 


0P72I 


Reading Past /g Statement (on SYSRDR or SYSIPT) 


31 1 


0P75I 


Error Queue Overflew 


32 1 


0P76I 


Invalid DASD Address 


33 1 


0P79I 


No Long Seek (disk) 


34 1 




Reserved 


35 1 


0P85I 


Job control open failure 


36 1 


0V08I 


Page fault in I/O appendage routine 


37 1 




Reserved 


38 1 


OVllI 


Wrong privately translated COW 


39 1 




Reserved 


FF 1 


0P78I 


Unrecognized Cancel Code 




0P83A** 


Supervisor Catalog Failure 




0P87A** 


IPL failure 



j. X X ^ 

In addition to recognizing the cancel-codes above, the Terminator also recognizes 
the same codes yA^ith the X'80' bit on (cancel occurred in LTA) . The X'80' bit is set 
by $$ABERZ1 when no more I/C requests are pending and the cancel procedure therefore 
can be continued. Later it is tested for by $$BEOJ and subsequently reset. 



*If the CCB is unavailable, the logical unit is SYSxxx. 

**This cancel code is not significant in case of a supervisor catalog or IPL failure, 

because the system is placed in a wait state without any further processing by the 
Terminator. 



Figure 69. Cancel Codes and Messages (Part 2 cf 2) 



2 90 DOS/VS Serviceability Aids 



J. ^ ^ — ^^_ 

I Displacement! Label | 



Description 



0-15 
16-17 

18-19 



(ACCTCOMN) 
I ACCTSVRG 

ACCTSVRX 



( ACCTSVRE 



20- 


•23 


ACCTPCNT 


24 




ACCTSAID 


25 




ACCTFAID 


26 




ACCTRI^ID 


27 




ACCTSWCH 



28- 


•31 


ACCTIME 


32- 


-33 


ACCTRESC 


34- 


-35 


ACCTUSEP 


36- 


■37 


ACCTUSEL 


38- 


-39 


ACCT$JOB 


40- 


-43 


ACCTBLES 



Temporary register save area 

jsave area for remainder of overhead counter tiires distributed 
I by partition en exit 

I Save area for remainder of all-bound counter tiires distributed 
I by partitions on entry 

I Count of partitions using the Job Accounting interface 

I Owner of physical transient area *) 

Interrupted program *) 

ACTIVE PROGRAM *) 

I Accounting sw^itches: if bit=l, true,* if bit=0^ net true 

bit 0: cancel accounting bit 4: IPL indicator 

I bit 1: no active partitions hit 5: not used 

I bit 2: catalog in process bit 6j not used 

I bit 3: alternate label area hit 7: not used 

I Start tiire of current accounting interval, in cornplement format 

I Reserved 

I Address of user save area (ACCTUSER) 

[Length of user save area (set \vith 1st operand of FOPT macro 
parameter JALIOCS) 

I Job accounting partition indication 

I Address of BG Job Accounting Table 



If multiprogramming is supported, this table is to be extended with cne cf the following 
fields (depending on the number of supported partitions), otherwise the table ends here. 



NPARTS=2 
r 



I 44-47 

1 

I 48-51 

I 

L 



I Address of Fl Job Accounting Table 



I 



I ACCTSEAS [Control Field: prevents the accounting routine being loaded i 
I I twice I 

-X ■ JL . J 



NPARTS=3 

r 

44-47 

48-51 

52-57 



[Address of F2 Job Accounting Table 

1 

I Address of Fl Job Accounting Table 



I ACCTSEAS I Control Field: prevents the accounting routine being loaded 
j twice 

-X 

*) These values are the same as the PIK values for the relevant tasks. 



L ^ X- ^ 



, ^J 



Figure 70. Job Accounting Interface Common Table (ACCTCCMN) (Part 1 of 2) 
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NPARTE 



J. . ^ . — ^_^. 

I Displacement I Label | 

i. 1 1. 



Description 



i 44-47 




1 48-51 




1 52-55 




1 56-63 


ACCTSEAS 1 



Address of F3 Job Accounting Table 

Address of F2 Job Accounting Table 

Address of Fl Job Accounting Table 

Control Field: prevents the accounting routine being loaded 
twice 



NPARTS=5 

r~ ■ — - — 



44-47 
48-51 

52-55 
56-59 
60-69 




Address of F4 Job Accounting Table 

Address of F3 Job Accounting Table 

Address of F2 Job Accounting Table 

Address of Fl Job Accounting Table 

Control Field: prevents the accounting routine being loaded 
twice 

Bytes 124-127 (X'7C'' - X'7F') of the System Communication Region (SYSCCI^^) contain the 
address of the Job Accounting Interface Coirmon Table. label ACCTCOMN identifies the 
first byte of the table. 

Figure 70. Job Accounting Interface Comiron Table (ACCTCOMN) (Part 2 of 2) 



J. . ^ „ ^- 

I Displacement I Label | 



Description 



(ACCTABLE) f 
lACCTWKl I Work area used in SIC update 

IACCTWK2 I Work area used with ACCTWKl in start/stop tiire routine 

I ACCTSVPT I Job card pointer; address of job card field following jobnaire 

ACCTPART I ID cf partition in charge (partition switch narre) 

lACCTLEN [Length of SIO area=6n + l, where n=nuirber of devices for this 
I partition in SYSGEN option JA= (nl, n2^ n3 ,n4^n5) 

I ACCTLOAD I Label area instruction; moves JAI label area address to 
I OPEN/CLOSE transients 

I ACCTRES3 I Reserved 

I ACCTLADD [Address of alternate label area 

lACCTCPUT [Counter for CPU tirre elapsed in a jobstep^ counted in 300th of 
I a second 

I ACCTOVHT I Counter for overhead time; time not charged to any partition 

I ACCTBNDT [Counter for all-bound time; system wait state time divided 
[between runnina Darti ti rns 



0-3 

4-7 

8-11 

12-13 

14-15 

16-21 



22- 


-23 


24- 


-27 


28- 


-31 


32- 


-35 


36- 


-39 



Figure 71. Job Accounting Interface Partition Table (ACCTxx) (Part 1 of 2) 
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^ ^^ ^- 

I Displacement 1 Label | 
|.„ 4 1. 



Descripticn 



40-47 
48-55 
56-71 
72-73 

74 

75 

76-83 

84-87 

88-91 

92-95 

96-103 

104-107 

108-111 

112-115 

116-119 

120 



ACCTSVJN 
ACCTJBNM 
ACCTUSRS 
ACCTPTID 

ACCTCNCL 

ACCTYPER 

ACCTDATE 

ACCTSTRT 

ACCTSTOP 

ACCTRES 

ACCTEXEC 

ACCTHICR 

ACCTIMES 



ACCTSIOS 



Save area fcr jcb naire during simulated EOJ 

Job name; taken from jcb card 

User information; 16 bytes frcm jcb card 

Partition ID: 'EG', •F4', •F3\ •F2', or 'Fl' in EBCDIC 
format 

Cancel code; see Cancel Codes and Messages 

Type of record: 'S' = job step, 'L' = last step of job 

Date in format specified at SYSGEN (MM/DD/YY or DD/MM/YY) 

Start time of job, in packed decimal CDHHMMSSF; F = sign) 

Stop time of job, in same format as ACCTSTRT 

Reserved 

Phase name; taken from execute card 

End address of active program phase, from COMREG 

CPU tim.e elapsed in a job step; counted in 300th of a second 

Overhead time; elapsed time not charged to any partition, in 

300th of a second 

All-bound time; system i^vait state time divided between 
running partitions, in 300th of a second 

SIO tables: 6 bytes for each device specified by SYSGEN 
options, as follows: 2 bytes for device address COcuu), 4 
bytes for count of SIOs in current jobstep 

Overflow byte: normally X'20*, but is X"30* if more devices 

are used within a partition than specified by SYSGEN options 



Notes : 

1. DSECT ACCTABLE symbolically addresses the JAI Partition Tables with labels as 
shown. Each partition in which JAI is supported has its own JAI Partition Table, 
labeled ACCTBG, ACCTF4, ACCTF3, ACCTF2, ACCTFl, fcr active partitions EG, F4 , F3 , 
F2, and Fl, respectively. 

2. The address of this table is in the partition Communication Region at displacement 
116 (X'74«). 

Figure 71. Job Accounting Interface Partition Table (ACCTxx) (Part 2 cf 2) 
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I 



APPENDIX C: SAMPLES OF EREP OUTPUT 



-— I/O DEVICE EDITING --- 



RECORD TYPE 



TASK IDENTITY 
UNIT CHECK 



EXAMPLE 



DATE 



DAY 


YEAR 




HH MM SS 


135 


73 


TIME ■ 


- 06 16 k5 



CPU MODEL 0155 SERIAL 51076^+ 
DOS/VS RELEASE LEVEL 29 



FAILING CHANNEL/UNIT ADDRESS 0382 



DEVICE TYPE 3420 



CC DA FL CT 
FAILING CCW 02 0038FE CO 00 0050 



CSW 



K CA 
00 003EFO 



US 
OE 



CS CT 
08 0000 



UNIT STATUS 



CHANNEL STATUS 



ATTENTION 
STATUS MODIFIER 
CONTROL UNIT END 
BUSY 



CHANNEL 
DEVICE END 
UNIT CHECK 
UNIT EXCEPTION 



PRGM-CTLD IRPT 

INCORRECT LENGTH 

PROGRAM CHECK 

PROTECTION CHECK 



CHAN DATA CHECK 1 

CHAN CTL CHECK 

I/F CTL CHECK 

CHAINING CHECK 



NUMBER OF I/O RETRIES 00003 

TCU SERIAL 0000 TU SERIAL 0000 



VOLUME SERIAL 123^56 



MODE SET C3 



BYTE 




BYTE 1 




BYTE 2 




BYTE 3 





BYTE i+ 




BYTE 5 




BYTE 6 




BYTE 7 




CMND REJ 





NOISE 


1 


TRK ERR 





R/W VRC 





ALU CHECK 





NEW SUBSY 





7 TRACK 





LAMP FAIL 





INTV REQ 





TU STAT A 


1 


TRK ERR 1 





MTE/LRCR 





REJECT TU 





NEW SUBSY 





WRT HD CR 





TP 


BOT LF 





BUS CHK 


1 


TU STAT B 





TRK ERR 2 





SKEW 





TAPE IND 





WRT TM CK 





DUAL DEN 





TP 


BOT RH 





EQUIP CK 





7 TRACK 





TRK ERR 3 





EDC/CRC 





WR TR VRC 





PE ID BUR 





NRZI 





RESET KEY 





DATA CK 





LOAD PT 





TRK ERR k 





VRC/ENV 





U-PGM DET 





ST RD CK 





MODEL 





DSE 





OVERRUN 





WRITE STA 





TRK ERR 5 





1600 BPI 





LOOP W/R 





PART RCD 









ERASE HD 





WRD CNT 





FL PROT 





TRK ERR 6 





BACKWARD 





TU CK 





EX POST A 









AIR PRESS 





DT CNVT 





NOT CAPAB 





TRK ERR 7 





C COMPARE 





RPQ 





RPQ 









LOAD FAIL 





BYTE 8 




BYTE 9 




BYTE 10 




BYTE 11 




BYTE 12 




BYTE 17 




BYTE 18 




BYTE 19 




I EG DROP 





BIT 





CND S REJ 





B/BUS/LSR 


D 


B/BUS/LSR 





2 CHAN SW 





PRW CK 





DE 


DR 7 





FD THR CK 





VEL CHG 





SPARE 





SPARE 





SPARE 





FEATURE 





SPARE 





DE 


DR 6 





BIT 2 





RESERVED 





CTL S REJ 





XFEk/LOIC 





XFER/LOIC 





FEATURE 





SPARE 





DE 


DR 5 





ERLY BOR 





RESERVED 





NO BOR 





INST/HI IC 





INST/HI IC 





FEATURE 





SPARE 





DE 


DR 4 





ERLY END 





SPARE 





WIM-EQ CK 





U-PGM ERR 





U-PGM ERR 





EC OF CU 





EC OF DRV 





DR 


DE 3 





SLOW BOR 





SPARE 





TACH FAIL 





D BUS PTY 





D BUS PTY 





EC OF CU 





EC OF DRV 





DE 


DR 2 





SLOW END 





SPARE 





SPARE 





SPARE 





SPARE 





EC OF CU 





EC OF DRV 





DE 


DR 1 





VEL TRY 





CTL U RES 





VEL CHK 





AOC ALUl 





BOC ALUZ 





EC OF CU 





EC OF DRV 





DE 


DR 





BYTE 20 




BYTE 21 




BYTE 22 




BYTE 23 




SDR AREA • 

















DE DR F 





LD BUTTON 





FRU ALUl 





FRU ALUZ 





NOISE 


000 


WR TR VRC 


00 


ERLY BOR 


00 








DE DR E 





LFT REEL 













R/W VRC 


000 


WRT TM CK 


00 


ERLY END 


00 








DE DR D 





RMT REEL 













MTE/LRCR 


000 


ST RD CK 


00 


SLOW BOR 


00 








DE DR C 





TAPE PRES 













EDC/CRC 


000 


PART RCD 


00 


SLOW END 


00 








DE DR B 





REELS LOD 













VRC/ENV 


000 


EX POST A 


00 


VEL RTY 


00 








DE DR A 





LD RWD 













OVERRUN 


00 


IBG DROP 


00 


VEL CHG 


00 








DE DR 9 





LD COMPL 













SKEW CK 


00 


FD THR CK 


00 


BACKWARD 


000 








DE DR 8 





LD CK 
DEPENDENT ; 













C COMP 


000 


PE ID CK 





BUS CHK 
ALU CHECK 

Tniy TK.I cnr 


DO 
00 








._ Qgy i i^c; 


INFOr^rmi i uim 
















T KK 1 N cKk 


OOGuuuuuu 




BLOCK LENGTH 


00000 




PERM WRTS 




003 






















TEMP REAC 


) 


002 




NOISE BLKS 


100 






















TEMP WRT 




005 




ERASE GAPS 


00000 






















SIO COUNT 




00003 




CLEAN ACT 




00003 






















PERM RDS 




001 































Example Unit check record for 3420 
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DETAIL -- MAGNETIC TAPE ERROR STATISTICS BY VOLUME DATE 73/135 

VOLUME TIME TU RD/ PERM PERM TEMP TEMP SIO BLOCK PROGRAM CPU MOD 

SERIAL DATE OF DAY CUA SERIAL WRT READ WRT READ WRT COUNT LENGTH ID ID NO DENSITY 

123^56 73/135 06.16.^5 0382 0000 R 001 003 002 005 00003 00000 EXAMPLE 0155 8/1600 

123^56 73/135 06.16.^5 0383 R 006 002 001 004 00005 00000 TEST 0155 1 8/1600 

983451 73/135 06.16.45 0382 0000 R 000 000 001 003 00007 00000 0155 8/1600 

983451 73/135 06.16.45 0383 R 006 002 002 003 00005 00000 TEST2 0155 1 8/1600 

Example of Error Statistics by Tape Volume Number. 









DETAIL -- MAGNETIC 


TAPE ERROR STATISTICS 


; BY TAPE UNIT DATE 73/135 














TU 




VOLUME 


TIME 


TEMP 


TEMP SIO 


NRZI 


R/W 


WR TG 


LRC 


CRC 


ECC 


SKEW 


ERLY 


VEL 




CUA 


SERIAL 


DATE 


SERIAL 


OF DAY 


READ 


WRT COUNT DENSITY 


NOISE 


VRC 


VRC 


MTE 


EDC 


ENV 


ERR 


BOR 


CHG 


TIE 


0382 


0000 


73/135 


123456 


06.16.45 


002 


005 00003 8/1600 


000 


000 


00 


000 


000 


000 


00 


00 


00 


000 


0382 


0000 


73/135 


983451 


00. 16.45 


001 


003 0000/ 8/1600 


214 


064 


05 


213 


193 


212 


12 


1 5 


01 


003 


0383 




73/1 35 


1 23456 


06. 16.45 


001 


004 00005 8/1600 


000 


000 




000 


000 


000 


00 


00 




000 


0383 




1^1 1 35 


983451 


06.16.45 


002 


003 00005 8/1600 


000 


000 




000 


000 


000 


00 


00 




000 



Example of Error Statistics by Tape Unit. 
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I/O DEVICE EDITING 



RECORD TYPE - VOLUME DISMOUNT 



CPU MODEL 0155 SERIAL 510764 
DOS/VS RELEASE LEVEL 29 



FAILING CHANNEL/UNIT ADDRESS 0382 DEVICE TYPE 3420 

NUMBER OF SIOS FOR THIS VOLUME 00000007 
VOLUME ID 983451 
TAPE MODE C3 



DATE 



DAY 


YEAR 




HH MM SS 


135 


73 


TIME - 


- 06 16 45 



SDR COUNTERS 



DEVICE DEPENDENT DATA 



NOISE 


214 


R/W VRC 


064 


BLK LENGTH 


00000 


NOISE BLKS 


080 


MTE/LRCR 


213 


EDC/CRC 


193 


TEMPY READ 


001 


TEMPY WRT 


003 


VRC/ENV CK 


212 


OVERRUN 


00 


PERM READ 


000 


PERM WRT 


000 


SKEW 


12 


C COMPARE 


00 


ERASE GAPS 


00000 


CLEANER ACTNS 


00003 


WRITE TRIG VRC 


05 


PE ID BURST CHK 





TRKS IN ERR 


00000001 1 






WRITE TM CHK 


00 


START READ CHK 


00 










PARTIAL RECORD 


00 


EXCESSIVE POSTAiMBLE 


1 5 










IBG DROP/WRITE 


00 


FEED THRU CHK 


00 










END VEL CHK 


15 


EE READ BACK CHK 


00 










SLOW BOR 


00 


SE READ BACK CHK 


00 










VELOCITY RETR 


03 


VEL CHNG DURING WT 


01 










BACKWARD 


063 


BUS OUT CHK 


00 










ALU HARDWARE ER 


00 















Example Volume Dismount for 3420. 



Appendix C: Sauples cf EREP Output 297 



( 



APPENDIX D: EXPLANATION OF FLOWCHART SYMBOLS 



DESCRIPTION 



EXAMPLE 



♦****Al********«* 



PROCESS 
*B2 



*4i4(4>4<4t*4i«4i4()t<**4i*4> 



A group of program instructions that perform 
a prooe^ing function of the program. The 
label, if any, is shown above the block. 

♦82 
IF ANY ADDITIONAL EXPLANATION IS 
REQUIRED, ITS LOCATION ON THE CHART 
IS IDENTIFIED BY AN ASTERISK AND 
THE BLOCK ID. 



REFERENCES 
TO BJB4: 
BBD4, 8CB2 
BLJl 



♦LABEL I BW* 

♦-*-*-*-♦-♦-*-♦-♦ 

* ♦ 

* SUBROUTINE ♦ 

* ♦ 



Description or title of a routine that is detail- 
ed on another flowchart. The starting label 
of the routine and the flowchart ID appear 
above the stripe. 



^^^cBA*******^*^** 



READ 
A RECORD 



m**m******iii'¥***** 



41 4eC1 *♦««*«« 

♦ PREPARATION * 

♦ ♦ 



4>4i4<4i4<01**4'****4'*« 



♦PREDEFINED 
♦ PROCESS 



An instruction, or group of instructions, that 
changes portion of a routine or initializes a 
routine for a given condition. 



A group of operations not detailed in the 
flowcharts in this manual, such as user rou- 
tines. 



♦• ERROR 
♦ . 

♦ • .♦ 
♦ NO 



ilfm***D^********** 



PROCESS 
THE RECORD 



4t*4>**C5 ♦♦♦♦♦♦♦♦♦♦ 
♦ERPTN BG^ 

. X+ ♦ 

♦ ERROR ROUTINE ♦ 

♦ ♦ 
4(«4i4'***4>4>«4i«4i**** 



^ntntt^ati** ********** 



*i^*^l*****if^t***** 

* * 

INPUT/OUTPUT 

♦ ♦ 

*******it,^^**it:**^^** 



Any function of an input/output device or 
program, usually branching to an I/O routine 
to perform the function stated in the block. 



**ti**********iii*** 



USEX15 .♦. 

E4 ♦. 
.♦ ♦. 

.♦ USER ♦. 

♦. OPTION 

♦ . .♦ 



4c*«4'4eE 5 ♦♦♦♦♦♦♦♦♦♦ 



. X^ USER ROUTINE^ ♦ 



:/lf**^L*****if*****ilf$f 



.♦. 

Fl ♦. 

• ♦ ♦« 

.♦ ♦. 

♦. DECISION .♦ 



♦ . 



.♦ 



if*f*Ql********* 

* * 

* TERMINAL ♦ 

* * 
««««4c**4i4<4'4'4'4>4<* 



Points where the program branches to alter- 
nate processing, based upon variable con- 
ditions such as program switch settings and 
test results. 



The beginning or end of a program or routine. 



On-page connector. An entry from or an exit 
to another function on the same flowchart. 
The location in the connector identifies the 
block to which entry on a chart is made. 



.X........ 




X 




RECALT .♦. 




F4 ♦. 


**fz^m****** 


.♦ ♦ . 


* 


,♦ RECORD ♦. YES 


* MODIFY 


♦ . ALTERED .♦ 


.X^ PPT NT 


♦ . .♦ 


♦TNSTRUCTTONS 


♦ . .♦ 


♦ 


♦ . .♦ 


4>«4<4>4>««**«* 


♦ NO 




**** 




* ♦ . 




♦ G4 ♦.X. 




♦ ♦ .X 




*♦♦* X 




RECPRO .♦. 




G4 ♦. 




.♦ ♦. 




.♦ALL RECORDS^. NO 




♦. PROCESSED ...... 




♦ . .♦ 




♦ . .♦ 




♦ . .* X 




♦ YES ***** 




♦BL ♦ 




♦ A1 + 




♦ ♦ 




♦ 




PRINT 




X 




*^ii^*^^i^itiHl**^^**** 




* * 




* ENO-OF-JOB ♦ 




* * 




*if**iti********** 





♦ BD ♦ 

♦ 04^ 



Off-pas^ connector. An entry from, or exit 
to, a given point on another flowchart. The 
characters in the connector identify the chart 
and block to which or from which control is 
passed. The corresponding label, if any, is 
placed outside the outgoing connector. For 
multiple entries, an asterisk is placed in the 
connector and the locations from which 
control is passed are listed nearby. 
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i^PPENDIX E: 



LABEL LIST 



Label 


Phase 


Location 


AIAGIT 


PDAID 


ACA1 


AAAGET1 


PDAID 


ACB1 


AEOBl 


DUMPGEN 


HDH5 


ACCEPT 


PDAIDQTW 


EJF4 


ACCEPT 


PDAIDQTT 


EMD5 


ACCPARM 


PDSEM 


JCB1 


ACCPAR1 


PDSDM 


JCG1 


ACCPAB2 


PDSDM 


JCJ1 


ACCPAE3 


PDSEM 


JCC5 


ACCPAR4 


PDSDM 


JDB1 


ACCPAB5 


PDSDM 


JDG1 


ACCPAR6 


PDSDM 


JDB3 


ACCPAR7 


PDSDM 


JDG3 


ACCPAR8 


PDSDM 


JDB5 


ACCPAR81 


PDSDM 


JDE5 


ACHCKID 


PDSDM 


JGB3 


ACHKNTRY 


PDSDM 


JGE1 


ACHKBEAL 


PDSDM 


JGG3 


ADDBCHCK 


PDSDM 


JGB1 


ADDBEDIT 


SDEHB 


GLJ1 


ADDRINT1 


BEALDUMP 


HFG5 


ADDZEBO 


DOMPGEN 


HBC1 


ADPTESC 


EBEP2715 


MLB4 


ADPTDISK 


EREP2715 


MLA5 


ADPTHD 


EREPADPT 


MMC2 


ADPT2740 


EBEP2715 


MLB2 


ADPT2790 


EBEP2715 


MLB3 


AEVAIJJCE 


LSEB¥ 


KAD3 


AERB 


PDSDM 


JAH2 


AERB1 


PDSDM 


JAF4 


AEBB10 


PDSDM 


JCH4 


AEBB2 


PDSDM 


JAG4 


AEBB3 


PDSEM 


JAHa 


AERBU 


PDSDM 


JAC5 


AERB 5 


PDSDM 


JAH5 


AEEB6 


PDSDM 


JCB4 


AERB6 


PDSDM 


JDG2 


AEBB8 


PDSDM 


JCE4 


AETDUB 


$$BSEAID 


GFDl 


AFTFIX 


$$BSDArD 


GFJ1 


AGAI13 


SYSEUFLD 


PEC4 


AGETDISP 


PDSDM 


JGE3 


ALLIIi 


DUMPGEN 


HDG1 


ALLTBACE 


PDAIDGTW 


EAJI 


AILTBACE 


PDAIDGTP 


EDF3 


ALLTBACE 


PDAIDGTT 


EGF3 


ALPHA 


SYSBOFLD 


PAB1 


AWOBIPAB 


PDSDM 


JGB5 


AODTVIBT 


PDSDM 


JGD5 


APABHO 


PDSDM 


JAE1 


AFABMOO 


PDSEM 


JAD1 


APARM1 


PDSDM 


JAJ1 


AFABM2 


PDSDM 


JAD3 


APABM3 


PDSDM 


JAF3 


APABM4 


PDSDM 


JABS 


AFABM5 


PDSDM 


JAE5 


APABM7 


PDSDM 


JBB1 


APABM8 


PDSDM 


JBD1 


APLOOP 


BEALDUMP 


HQD1 


AFEAEND 


PDAIDTDT 


FAG4 


AEEAEND 


PDAIDTDP 


FCG4 



Label 

ABEASTAT 

ARETURN 

AROUND 

AR0UND13 

AB0UND14 

ASETBEAL 

ASKAAA 

ASKAID 

ASKDEV 

ASKODQST 

ASKSVCQS 

ASK4AID 

ASSIGNEE 

ASTBK 

ASTBK 

ASTBK 

BACK 

BACK 

BACK 

BAD 

BAD 2 

BADCABD 

BALCVDEC 

BCTLOOP 

BEGIN 

BEGIN 

BEGIN 

BEGIN 

BEGIN 

BEGIN 

BEGIN 

BEGIN 

BEGIN 

BEGIN 

BEGIN 

BLANKS 

BLANKS 

BLANKS 

BLK 

BLKNR1 

BLNKCHK 

BLNKCHKC 

BOPLY 

BOPLY 

BPDT 

BBNCH1 

BRNCH1 

BBNCH1 

BBNCH1 

BBNCH1 

BBNCH1 

BBNCH2 

BBNCH2 

BBNCH2 

BBNCH2 

BBNCH2 

BENCH2 

BRPBOC 

BEPBOC20 

BOILDID 



Phase 


Location 


EREP2715 


MLB1 


PDSDM 


JGK1 


LSERV 


KAF3 


PDAID 


ADG3 


PDAID 


AGF2 


PDSDM 


JGD2 


PDAID 


ACC1 


PDAID 


AAJ2 


SYSBUFF1 


PFJ1 


PDAID 


ABB2 


PDAID 


ABG3 


PDAID 


AAD1 


DUMPGEN 


HBB3 


EREPEDIT 


MEA5 


EBEPEDCP 


MUB4 


EBEPEDES 


NEC3 


EREPEDIT 


MEA3 


EBEPEDCP 


MUB2 


EBEPEDES 


NEC1 


SYSBUFLD 


PDC5 


SYSBOFLD 


PDD5 


PDAID 


AFB5 


EBEPEDTR 


MVA3 


PDAID 


ALJ5 


PDAIDITP 


CBHa 


PDAIDITT 


CDH4 


DUMPGEN 


HAB1 


EST?UT 


LAB1 


EREPEDIT 


MDA1 


EBEPESPT 


MFA2 


EBEPTES 


NFA1 


EEEPESWK 


NHA2 


EBEPHIST 


NJAI 


EBEPRDE 


NKA1 


$$BUFLD2 


PKB1 


EREPEDIT 


MEA4 


EBEPEDCP 


MUB3 


EBEPEDES 


NEC2 


EST?UT 


LAA4 


BEALDUMP 


HLD1 


PDAID 


AEE1 


PDAID 


AFC5 


PDAIDQTW 


ELE4 


PDAIDQTT 


SMK3 


PDLIST 


BCH4 


PDAIDGTW 


EAB3 


PDAIDGTW 


EAB5 


PDAIDGTP 


EDG1 


PDAIDGTP 


EDGa 


PDAIDGTT 


EGGI 


PDAIDGTT 


EGG4 


PDAIDGTW 


EAC3 


PDAIDGTW 


EAC5 


PDAIDGTP 


EDH1 


PDAIDGTP 


EDHa 


PDAIDGTT 


EGH1 


PDAIDGTT 


EGH4 


EBEPUNIT 


MKB3 


EBEPUNIT 


MKB5 


EBEPSMTB 


MBA2 
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Label 

BDILITBL 
EYPSTM 

CANCiLIT 

CANCETN 

CCH 

CCHNEX 

CCHPART 

CCHBiAD 

CCHRIRN 

CCHOO 

CCH10 

CCH20 

CCH30 

CDEEELOG 

CGBJC2 

CHANGE1 

CHCKIST1 

CHCKSTRS 

CHEKER 

CHEKMAIN 

CHK 

CHK 

CHKAAA 

CBKAAA1 

CHKAAA3 

CHKAAA4 

CHKAAA5 

CHKAAA6 

CHKAAA8 

CfiKAA2 

CHKATOF 

CHKDATE 

CHKDIV 

CHKPILP 

CHKFOLD 

CHKIPL 

CHKKEY 

CBKMCRE 

CHKNO 

CBKNO 

CBKNC 

CBKNO 

CBKNC 

CBKNSWRT 

CBKRESP 

CBKSYSVS 

CBKTYPE 

CBKYiS 

CBKYjES 

CBKYIS 

CBKY 5S 

CB0TC9 

CKASIAT 

CKBSC 

CKCHARIN 

CKCQP 

CKCQP 

CKCQP 

CKCQP 

CKDEVCE1 

CKDEVCE1 

CKDE^CEI 

CKDEVCE1 

CKDEVCE1 

CKD1¥CB1 



Phase 


Location 


EREPRETV 


MGA2 


$$BATTN3 


GPE1 


SYSBDFLD 


PEE2 


PDAID 


AGF5 


ERIPRDE 


NLA2 


EREPCCH 


MHB3 


EREPCCH 


MHB1 


EREPCCB 


MHA4 


EREPCCH 


MHB5 


EREPEDCU 


MZA2 


EREPEDCO 


MZA3 


EREPEDCD 


MZA5 


EREPEDCO 


MZB1 


PDAID 


AFK3 


REAIDUMP 


HQE5 


REAL DUMP 


HLC1 


REALDUMP 


HKG1 


REALDUMP 


HNH3 


PDAIDITP 


CBH5 


EREPMNTR 


MBB3 


EREPESTE 


NGB3 


EREPESWK 


NHC1 


PDAID 


ACF1 


PDAID 


ACG1 


PDAID 


ACG3 


PDAID 


ACEa 


PDAID 


ACFt* 


PDAID 


ACB4 


PDAID 


ACC4 


PDAID 


ACC2 


PDAID 


ALG5 


EREPESWK 


NHA3 


SYSEUFF1 


PFB3 


SDPAR 


GDB2 


DCBIOAD 


PCD1 


DOMPGEN 


HCB3 


EREPMNTR 


MBB1 


PDAID 


AFH1 


DOMPGEN 


HBF5 


DUMPGEN 


HCF1 


DUMPGEN 


HCF3 


DUMPGEN 


HCF5 


DUMPGEN 


HDG3 


SDPAR 


GDB1 


EREPTES 


NFC2 


DUMPGEN 


HDB3 


SYSBUFLD 


PBB1 


DUMPGEN 


HBC5 


DUMPGEN 


HCC1 


DUMPGEN 


HCC3 


DUMPGEN 


HCC5 


PDAID 


ALE a 


EREPSPCL 


MNC2 


EREPADPT 


MMB5 


PDAID 


ALF5 


PDAIDFTP 


DBF2 


PDAIDFTT 


DDH2 


PDAIDGTP 


ECC1 


PDAIDGTT 


EFC1 


PDAIDITW 


CAA3 


PDAIDITP 


CBA4 


PDAIDITT 


CD A 5 


PDAIDQT¥ 


EKC1 


PDAIDQTW 


EKC3 


PDAIDQTT 


ENB1 



Label 

CKDEVCE2 

CKDEVCE2 

CKDEVCE2 

CKDEVCE3 

CKDEVCE3 

CKDEVST 

CKDEVST 

CKDEVST 

CKDEVST 

CKDONE 

CKEDIT 

CKENTRY 

CKENTRY 

CKMPX 

CKOUTOD 

CKREC 

CKTR 

CK2715ID 

CK2715ID 

CK2740 

CK2790 

CLBLUB 

CLEAR 

CLEAR 

CLEAR 

CLEAR 

CLEAR 

CLEAR 

CLEAR 

CLEAR 

CLEAR 

CLEARCTR 

CLEARTW 

CLKRUNS 

CLMERK 

CLOSPRT 

CLRFILE 

CMPTIME 

CMRG 

CNTROL 

CNTROL 

CNTROL 

CNTOO 

CNT05 

CNVTCUU 

CNVTODEC 

CNVT2BIN 

C0L71 

COMCPU 

COMCUA 

COMCUA 

COMDATE 

COMDEV 

COM END 

COMJOB 

COMPARE 

COMPARE 

C0MPARE1 

COMPARM 

COMPAS 

COM PCD 

COMPLOW 

COMPNEX 

COMPO 

COMPROS 

COMPOTE 



Phase 


Location 


PDAIDITW 


CAB3 


PDAIDITP 


CBB4 


PDAIDITT 


CDB5 


PDAIDITW 


CAC3 


PDAIDITT 


CDC5 


PDAIDFTP 


DBE3 


PDAIDFTT 


DDG3 


PDAIDGTP 


ECB3 


PDAIDGTT 


EFB3 


EREPSPCL 


MNB1 


EREPTES 


NFA5 


PDAIDGTP 


EC 12 


PDAIDGTT 


EFF2 


EREPADPT 


MMB3 


PDAID 


ADB1 


PDLIST 


BCC4 


PDLIST 


BCE4 


EREPSPCL 


MNA2 


EREPASTA 


MPA4 


EREPADPT 


MMBa 


EREPADPT 


MMB2 


REALDUMP 


HTB1 


PDAIDITP 


CBJ5 


PDAIDITT 


CDH5 


PDAIDFTP 


DCJ2 


PDAIDFTT 


DEJ2 


PDAIDGTP 


EC J 5 


PDAIDGTT 


EFJ5 


PDAIDQTT 


ENG3 


PDAIDTDT 


FBG2 


PDAIDTDP 


FDF2 


EREPSMCP 


MQA3 


SDAID1 


GAJ1 


SDAID1 


GAH1 


SDEHR 


GLF3 


SDEHR 


GLG3 


EREPMNTR 


MCC2 


EREPRDE 


NKC1 


$$BSDAID 


GMH2 


EREPEDIT 


MEC5 


EREPEDCP 


MUC5 


EREPEDES 


NEua 


EREPSMTP 


MTC1 


EREPSMTP 


MTA4 


PDAID 


ALF1 


EEEPEDTR 


MVA4 


PDAID 


ALD5 


DUMPGEN 


HDB1 


EREP 


MAG2 


EREP 


MAF5 


EREPSPCL 


MNBtt 


EREP 


MAF1 


EREP 


MAG3 


EREP 


MAGS 


EREP 


MAF3 


EREPESWK 


NHC5 


UCBLCAD 


PCK4 


REALDUMP 


HHF1 


SDPAR 


GDF1 


EREPSPCL 


MNB3 


PDLIST 


BCC2 


REALDUMP 


HJC1 


SDAIDt 


GAA3 


REALDUMP 


HJF1 


EREP 


MAI4 


EREP HI ST 


NJCI 



302 DOS/VS Serviceability ^ids 



Label 


Phase 


Location 


COMPl 


SDAID1 


GAK1 


CCMBIGN 


EBEP 


MAC3 


CCMTEBM 


EBEP 


MAG1 


COMTIME 


EBEP 


MAF2 


CCMVCL 


EBEP 


MAG4 


CONFLCT 


SYSBUFLD 


PBca 


CCNT 


PDAIDFTP 


DBD1 


CCNTINOE 


PDAIDGTP 


EEG2 


CONTINUE 


EBEPESPT 


MFB1 


CONTINDE 


EBEPHIST 


NJC4 


CONTINUE 


$$BUFLDB 


PHE1 


CCNTSCAN 


SDPAB 


GCD1 


CCNTSCAN 


BEALDUMP 


HNC1 


CONYDATE 


EBEPBDE 


NKB4 


CCNVCEV 


EBEPBDE 


NKD4 


CONCERT 


PDAID 


ALES 


CCN?IBT 


SDAID1 


GAB3 


CCNVIBT 


ESTVUT 


LAA2 


CONVBT 


ESTVUT 


LAF4 


CCN?iT2 


ESTVUT 


LAF5 


CONVTIME 


EBEPBDE 


NKB5 


COfiEEMPI 


PDAIDTDT 


FAC3 


CCBEEMP1 


PDAIDTDP 


FCC 3 


COREDUMP 


PDAIDTDT 


FAB3 


CCREtUMP 


PDAIDTDP 


FCB3 


COUNT 


EBEPSMCP 


MQB4 


CPTNBETN 


EBEP 


MAB1 


CPU 


EBEPMNTB 


MBD4 


CQCHCK 


BEALDUMP 


HUB3 


CQLOCP 


BEALDUMP 


HUD3 


CQL00P1 


BEALDUMP 


HUF3 


CCL0CP2 


BEALDUMP 


HUF4 


CCL0CP3 


BEALDUMP 


HUJ3 


CBDINP 


PDAID 


AEB1 


CTBINCR 


EBEPADPT 


MMB1 


CIBLOC 


EREPSM** 


MSA4 


CUUCNVT 


PDAID 


ALE1 


CUUOKEX 


PDAID 


ALK1 


CUUPCBCK 


PDAID 


ALH1 


CUUBiSP 


PDAID 


ABE2 


DAEDCO 


EBEPED** 


MWA5 


DAEDOO 


EBEPED** 


MXA5 


DAEDC5 


EBEPED** 


MXB1 


DAED10 


EBEPED** 


MXB2 


DAED15 


EBEPED** 


MXB3 


DAED20 


EBEPED** 


MXB5 


DASDOO 


EBEPED** 


MWA2 


DASDOO 


EBEPED** 


MXA2 


DASD05 


EBEPED** 


MWA3 


DASD05 


EBEPED** 


MXA3 


DASD10 


EBEPED** 


MWAa 


DASD10 


EBEPED** 


MXA4 


DATAEDS 


LSEBV 


KBC1 


DAT]iBEAD 


LSEBV 


KBB1 


DATE 


EBEPMNTB 


MBC4 


DATE 


EBEPEDIT 


MEB3 


DATE7ENT 


SDEEB 


GKBt 


DATECO 


EBEPSMTP 


MTA2 


DATEOO 


EBEPED** 


NBA2 


DBLSCHK 


PDAID 


AEG2 


DBLSTYPE 


PDAID 


AED3 


DEFAULT 


EBEPMNTB 


MCA 2 


DENS 


ESTVUT 


LAD3 


DEYASSGN 


DUMPGEN 


HEB3 


DEVICE 


EBEPMNTB 


MBD1 



Label 


Phase 


Location 


DEVTST 


PDAIDITP 


CBC1 


DEVTST 


PDAIDITT 


CDC1 


DEVTST 


PDAIDQTT 


EMC1 


DISKBEAD 


EREPSMES 


NDB2 


DISKIO 


EBEPSMES 


NDC2 


DMPTST 


PDAIDQTW 


EKJ3 


DOIO 


SYSBUFF1 


PGH1 


DOIT 


PDAIDITT 


CEE2 


DOIT 


PDAIDGTW 


EBJ3 


DOIT 


PDAIDGTT 


EFG2 


DOIT 


PDAIDQTW 


ELB4 


DOIT 


PDAIDQTT 


ENE4 


DONE 


BEALDUMP 


HPB3 


DON SET 


PDAIDITT 


CDF3 


DONTSET 


PDAIDGTT 


EHFa 


DONTSET 


PDAIDQTT 


EMG3 


DOPBINT 


SDAID1 


GAD5 


DOPT 


PDAIDITP 


CCB3 


DOPT 


PDAIDFTP 


DBJ2 


DOPT 


PDAIDGTP 


ECG2 


DOPTR 


PDAIDFTT 


DDC5 


DOS LEV EL 


EBEPEDIT 


MEB5 


DSKEBBOB 


EBEPADPT 


MMA5 


DUMP 


BEALDUMP 


HGD3 


DUMP 


EBEPEDIT 


MED1 


DUMPABEA 


PDAIDTDT 


FABt 


DUMPABEA 


PDAIDTDP 


FCB1 


DUMPTST 


PDAIDITW 


CAD3 


DUMPTST 


PDAIDITP 


CBB2 


DUMPTST 


PDAIDITT 


CDC2 


DUMPTST 


PDAIDQTT 


EME1 


DUPLBEQ 


SDAID1 


GAH4 


DVCK 


EBEPESPT 


MFB3 


DVCSCAN 


EBEPSMCP 


MQB3 


DVCSCAN 


EBEPSM** 


MSA2 


DVCSUPBT 


EBEPSM** 


MS A3 


DVCOO 


EBEPEDD1 


NAA2 


DVC05 


EBEPEDD1 


NAA3 


FALL 


PDLIST 


BAJ2 


ED**STBT 


EBEPED** 


MWA1 


ED**STRT 


EBEPED** 


MXA1 


ED**STBT 


EBEPED** 


NBA1 


EDCPSTBT 


EBEPEDCP 


MUA1 


EDCUSTBT 


EBEPEDCU 


MZA1 


EDD1STRT 


EBEPEDD1 


NAA1 


EDESSTBT 


EBEPEDES 


NEA1 


EDIT 


BEALDUMP 


HVG1 


EDIT 


EBEPEDIT 


MDA3 


EDIT 


EBEPEDES 


NEA4 


EDITBITS 


EBEPEDIT 


MEC3 


EDITLOAD 


EBEPSMCP 


MQB5 


EDITLOO 


EBEPEDCP 


MUA4 


EDITMOBE 


EBEPADPT 


MMC3 


EDITVOO 


EBEPEDD1 


NAB2 


EDITV05 


EBEPEDD1 


NAB3 


EDITV07 


EREPEDD1 


NAB5 


EDITV15 


EBEPBDDI 


NAB4 


EDITV25 


EBEPEDD1 


NAC1 


EDITOO 


EBEPEDTP 


MYA4 


EDITOO 


EBEPEDD1 


NAA5 


EDITOO 


EBEPED** 


NBA5 


EDITOO 


EBEPEDU1 


NCA5 


EDIT03 


EBEPEDTP 


MYA5 


EDIT05 


EBEPEDCP 


MUA2 


EDIT05 


EBEPEDTP 


MYB1 
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Label 

EDIT05 

EDIT10 

EDIT 10 

EDIT10 

EDIT10 

EEIT15 

EDIT20 

EDIT 20 

EDIT25 

EDIT25 

ECTPSTET 

EDU1STET 

ELEME? 

ENABLE 

ENABLE 

END 

END 

ENDBB 

ENDD 

ENDH 

ENDIT 

ENDJOB 

ENDJCE 

ENDMSG 

ENDPFT 

ENDSr 

ENDT 

END0f5P 

ENTCHNG 

ENTCENG 

ENTEB5 

ENTR 

ENTB 

ENTE 

ENTEY 

ENTEYB 

ENTRYB 

ENTEYQ 

ENTBYQ1 

EOD 

ECFBCUT 

EOFRIN 

ECFTEST 

EOJ 

EOJ 

ECJ 

EOJ 

ECJJT 

EOJRTN 

E0JR1NA 

EBBLCOP 

ERBL00P1 

EBBLC0P3 

ERBLC0P4 

EREPNAME 

EBEPSTET 

EBB 

EBBCCND 

EBRCCND 

EBECOND 

EBBCCND 

EBBCOND 

EBBCCND 

EBBHB 

ERRHR 

EBBHB 



Phase 


Location 


EREPEDES 


NEB 2 


EFEFEDCP 


MUA3 


EBEPEDD1 


NAB1 


EFEFEDU1 


NCB1 


EREPEDES 


NEA5 


EREPEDU1 


NCB2 


EREPEDU1 


NCB3 


EREPEDES 


NEB3 


EREFEDU1 


NCB4 


EREPEDES 


NEB1 


EREPEDTP 


MYA1 


EPEPEDU1 


NCA1 


SDERR 


GJB3 


PDAIDTDT 


FAK1 


PDAIDTDP 


FCK1 


EREPESWK 


NHB2 


SYSBUFLD 


PAE3 


PDLIST 


BAE1 


ESIUDT 


LAA5 


EREPESTB 


NGC1 


REALDOKP 


HYB5 


PDSDM 


JBE4 


PDSEM 


JJH4 


$$BUFLDB 


PHC5 


LSEB? 


KAH5 


$$ESDAID 


GNB5 


ESTVUT 


LACS 


REALDUMP 


HKB1 


PDAIDITI? 


CADS 


PDAIDFTW 


DACa 


REALDUMP 


HQD3 


PDAIDITT 


CDJ3 


PDAIDQTW 


EJE2 


PDAIDQTT 


EMG1 


PDAIDITP 


CBE4 


PDAIDTDT 


EAC1 


PDAIDTDP 


FCC1 


PDLIST 


BEF2 


PDLIST 


BFC3 


EREPIDE 


NLA4 


PDSEM 


JFB1 


EREPUNIT 


MKC2 


LSEBV 


KAC5 


PDAID 


AHB4 


$$BPDAID 


AME3 


PDLIST 


BAF2 


ERFFMNTR 


MCC3 


LSEBV 


KAES 


PDAID 


AAFS 


PDAID 


AAJ4 


REALDUMP 


HTE5 


REALDOMP 


HUC1 


REALDUMP 


H0D1 


REALDU?!P 


HUE1 


EREF 


MAA5 


EREP 


MAA1 


DUMPGEN 


HDDS 


$$BPDAID 


AMF5 


PDAIDITP 


CCB5 


PDAIDITT 


CEB4 


PDAIDGTP 


ECE4 


PDAIDGTT 


EFE4 


PDAIDQTT 


ENB5 


PDAIDITP 


CCC3 


PDAIDITT 


CEF2 


PDAIDFTP 


DBK2 



Label 

ERRHR 

ERRHR 

ERRHR 

ERRHR 

ERRKSG 

ERROR 

ERROR 

ERROR 

ERR0R4 

ERR0R4 

ERRSTAT 

ERRO 

ERRS 

ERR5A 

ESTVUT 

EXCP 

EXCP 

EXECUNPK 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXITOO 

EXITOO 

EXITOO 

EXIT1 

EXNTPROC 

EXNTPROC 

EXTINT 

FASTCO?! 

FASTREC1 

FASTREC2 

FASTREC3 

FETCH 

FETCH 1 

FETCH1 

FETCH2 

FILLUP 

FINAL 

FINAL 

FINAL 

FINAL 

FINDFIR 

FINDFIR1 

FINDIGNS 

FINDIT 

FINDSVCS 

FIRST 

FIR ST IN 

FIXING 

FLAGSET 

FL ENTER 

FLTREC 

FLTRSET 

FLUSH 

FOLLOFF 

FOLLON 

FOLLOW 



Phase 


Location 


PDAIDFTT 


DDD5 ( 


PDAIDGTP 


ECH2 


PDAIDGTT 


EFH2 


PDAIDQTT 


ENF4 


SDPAR 


GBG2 


PDAIDTDT 


FAGS 


EREPSMCP 


MQB2 


$$BUFLD2 


PKC2 


EREPESWK 


NHE5 


EREPHIST 


NJC5 


SDAID1 


GAF1 


PDAID 


AJG2 


DUMPGEN 


HDB5 


DUMPGEN 


HDCS 


ESTVUT 


LAA1 


SYSBUFLD 


PEB3 


5;$BUFLD1 


PJD1 


PDLIST 


BCE5 


EREPEDIT 


MEF3 


ERFPASTA 


MPB5 


EREPEDCP 


MUC3 


EREP ED TB 


MVB3 


EREPEDCU 


MZA4 


EREPEDD1 


NAA4 


EREPED** 


NBA4 


EREPEDES 


NED2 


FREPTES 


NFBI 


EREPHIST 


NJD4 


SYSBUFF1 


PEGS 


EREPEDTP 


MYA3 


EREPEDUl 


NCA4 


EREPEDES 


NEA3 / 


EREPHIST 


NJDS 'x^ 


EREPEDIT 


MEE3 


EREPUNIT 


MKB1 


SDEHR 


GGHS 


$$BSDAID 


GNC1 


$$BSDAID 


GNE1 


$$BSDAID 


GNB2 


$$BSDAID 


GNB3 


$$BUFLD1 


PJH1 


SYSBUFF1 


PGJ1 


$SBUFLDR 


PHG4 


SYSBUFLD 


PEJ4 


PDLIST 


BAC1 


PDAIDFTP 


DBF1 


PDAIDFTT 


DDF1 


PDAIDGTP 


EEG4 


PDAIDGTT 


EHG4 


PDLIST 


BEE2 


PDLIST 


BFG1 


PDAID 


ACC5 


PDLIST 


BDBa 


PDAID 


ABF3 


REALDUMP 


HQF5 


PDLIST 


BCD2 


$$BSDAID 


GFA5 


PDLIST 


BEC4 


PDAIDFTW 


DAB2 


PDLIST 


BEB2 


PDLIST 


BAB4 


PDSDM 


ajG4 


SDPAB 


GCE2 


SDPAR 


GCF2 H 


EREPESWK 


NHC4 



304 DOS/VS Serviceability Aids 



Label 



Phase 



Location 





FOBCCHK 


$$BSDAID 


GFF1 




FCECCHK 


$$BATTN3 


GPGl 




FOECDEF 


SDAID1 


GAF3 




FCBGIT 


$$BSDAID 


GME3 




FORGETIT 


$$BATTN3 


GPC5 




FOBMM 


PDAIDFTP 


DBG5 




FORMAT 


PDAIDGTP 


EED1 




FORMAT 


DUMPGEN 


HCB1 




FCBMliT 


EREPMNTR 


MBD2 




FORMAT 


EBEPESPT 


MFB2 




FORM IT 


EREPESTR 


NGB4 




FOR MAT 1 


PDAIDGTP 


EEE1 




FOUND 


SSBUFLDR 


PHB3 




FC0NEir4 


REALDOMP 


HND2 




FPCHCK 


BEALDUMP 


HUD5 




FBOMSIO 


PDAIDITW 


CAC1 




FRSTCHK 


EREPESWK 


NHC3 




FSTIMSW 


PDAID 


AAF2 




F1TRCHK 


PDAID 


AHE4 




GENPBINT 


EREPRDE 


NKC5 




GET 


PDLIST 


BAH3 




GETADDRS 


PDAIDQTW 


ELG2 




GFTCC 


SYSBUFF1 


PFD1 




GETIGNS 


PDAID 


AHB1 




GETPHAS 


EREPRETV 


MGD2 




GETSDPST 


$$EPDAID 


AMG1 




GETS?CS 


PDAID 


AJB1 




GIfSBCE 


EREPMNTR 


MB 13 




GO 


PDAIDTDT 


FAB 5 




GO 


PDAIDTDP 


FCB5 




GOEACK 


PDAIDGTW 


EAD4 




GCBACK 


PDAIDGTP 


EDJ2 




GOBACK 


PDAIDGTT 


EGJ2 




GOOD 


EREPESWK 


NHC2 




GOODTAPE 


EREPESTR 


NGA3 




GCODTAPE 


EREPHIST 


NJA5 




GORTN 


PDAID 


AGE2 




GOTHRO 


PDLIST 


BDC4 




GFACTIVE 


EREPSMTR 


MRA5 




GROUPCK 


EREPUNIT 


MKB2 




GBUPBD 


EREPRDE 


NLB1 




GSVCPRT 


PDLIST 


BBC2 




GS?CTYPE 


PDLIST 


BBG2 




GTST4FF 


PDLIST 


BBF2 




HALF 


PDLIST 


BEH4 




HALF1 


PDLIST 


BFB3 




HAPDAT 


SDEHR 


GKE1 




nZLBl 


SDEER 


GKD3 




HEADIR2 


EREPHIST 


NJB3 




HERE 


EREP2715 


MLA2 




HIGHEND 


$$BSDAID 


GMD3 




HIL05ET 


EBEP2715 


MLA3 




HISTCK 


EREPHIST 


NJD2 




IGET1ST 


PDSDM 


JBB5 




IGNDEV 


PDAIDITP 


CBC3 




IGNDEV 


PDAIDQTW 


ELE2 




IGNDEV 


PDAIDQTT 


EMH3 




IGNRESP 


PDAID 


AHD1 




IGNBSPCD 


PDAID 


AHJ3 




IGNRTN 


PDAID 


AGD4 


\ 


IGNTBCER 


PDAID 


AHG3 


1^ 


IGTRERCD 


PDAID 


AKB5 




IJEECCH' 


EREPCCH 


MHA2 



Label 


Phase 


Location 


IJBEIPL 


EREPIPL 


MJA1 


IJBEMCAR 


EREPCCH 


MHA1 


IJBEUNIT 


EREPUNIT 


MKA1 


IJERETV 


EREPRETV 


MGA1 


IMODUNT 


PDSDM 


JBC3 


IMOD001 


PDSDM 


JJG1 


INCRCGPT 


EREPEDTR 


MVB2 


INCREMENT 


PDAIDFTW 


DAG2 


INCRMNT 


PDAIDITW 


CAF3 


INCRSEQ 


EREPRDE 


NKC2 


INDEX 


EREPEDIT 


MEC2 


INDEX 


EREPEDCP 


MUC4 


INDEX 


EREPEDES 


NED3 


I NIT 


EREPADPT 


MMA2 


INITAPE 


EREPESTR 


NGA2 


INITAPE 


EREPHIST 


NJA3 


INITIAL 


EREPEDIT 


MDA2 


INITIAL 


EREPTES 


NFA2 


INITIAL 


EREPESWK 


NHA1 


INITLOG 


EREPMNTR 


MBA4 


INITPG 


EREPESPT 


MFA1 


INITPIKS 


PDAID 


ABC5 


INITRTN 


PDAID 


ADB3 


INITZ 


PDAIDITW 


CAE5 


INITZ 


PDAIDITP 


CBF3 


INITZ 


PDAIDFTW 


DAA4 


INITZ 


PDAIDQTW 


ELB2 


INITZ 


PDAIDQTT 


EMC3 


INITOO 


EREPSMES 


NDA3 


INITOO 


EREPRDE 


NKA2 


INITIO 


EREPSMES 


NDA5 


INIT20 


EREPSMES 


NDAa 


INSERT 


EREPESWK 


NHD2 


INSRTEV 


SDEHR 


GLH1 


INSDFF 


SDAID1 


GABS 


INTCHK 


SDEHR 


GHB3 


INTCHK1 


SDEHR 


GHC3 


INTENTER 


PDAIDITW 


CAH4 


INTERUPT 


DUMPGEN 


HBB5 


INTEXIT2 


SDEHR 


GHC4 


INTEXIT3 


SDEHR 


GHD4 


INTEXIT4 


SDEHR 


GHEt^ 


INTRUPT 


REALDUMP 


HFD1 


IN¥CC 


SfSBUFLD 


PEES 


INYSTE1 


REALDUMP 


HLB3 


lOBCKT 


PDAIDITT 


CDB3 


lOPNLST 


PDSDM 


JBE2 


lOPNOUT 


PDSDM 


JBJ1 


lOPNPDS 


PDSDM 


JBE3 


lORTN 


PDAIDQTW 


EJB2 


lOTREC 


PDLIST 


BDB2 


lOTRFRMT 


PDLIST 


BDE2 


lOTRSET 


PDLIST 


BAEi^ 


lOUTEND 


PDSDM 


JJC4 


IPDSEND 


PDSDM 


JJB4 


IPL 


EREPRDE 


NKC4 


IPLNDX 


EREPIPL 


MJAtI 


IPLPAGE 


EREPIPL 


MJA3 


IPLREAD 


EREPIPL 


MJA2 


IPLRTRN 


EREPIPL 


MJA5 


ISBLOCK 


SYSBUFLD 


PDC2 


I SB LOCK 


SYSBUFLD 


PDE2 


ISDAEXTS 


LSERV 


KBG3 


ISIT4 


SDEHR 


GKG3 


ISMSG 


SYSBUFLD 


PDC3 


ISPRNT 


SYSBUFF1 


PGG1 


Append 
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Label 


Phase 


Location 


ISSDKSG 


SYSEOFLD 


PEB1 


ISX 


SYSEUFF1 


PEA 2 


I'lIPEI 


PDSDM 


JJE1 


ITSTEEV 


PDSEM 


JJB1 


IISTPDS 


PDSDM 


JBD3 


KEEP3GN 


PDAID 


AEK4 


KEEP IRC 


PDAID 


AEK3 


KEYCHK 


PDAID 


AFA1 


KEY14CHK 


PDAID 


AFF3 


KEY15CHK 


PDAID 


AFG4 


KEY2CHK 


PDAID 


AFB1 


KEY3CHK 


PDAID 


AFC1 


KEY4CHK 


PDAID 


AFG1 


KEY5CHK 


PDAID 


AFE1 


KIY6CHK 


PDAID 


AFG2 


KEY7CHK 


PDAID 


AFF1 


KLEEB 


$$BUFLD1 


PJFt* 


LJiBLBOOr 


EREFTES 


NFB5 


LASTLSf 


EREPESPT 


MFB4 


Li^STiEC 


PDLIST 


BAG2 


LEAVDISP 


SDEHE 


GHE1 


LISTCLB 


PEALEOMP 


HTE1 


LTSTPRO 


EREPEDIT 


MEA1 


LISTPRO 


EREFEDCP 


MUA5 


LISTPEOC 


EREPEDES 


NEB 4 


LOAD 


EBEPEDIT 


MED3 


LOADER 


EREP 


MAA2 


L0ADER2 


EREP 


MAA3 


LOADFCB 


SYSBDFF1 


PFH2 


LCADINP 


DOMPGEN 


HAB3 


LOADIT 


EPEP2715 


MLC3 


LCADI^AME 


ERIP 


MAA4 


LOADOPTN 


EBEPEDIT 


MDA5 


L0AD0Y5 


BEAIDUMP 


HQB3 


LOADFHAS 


EREPEDIT 


MDA4 


LOADBEGS 


PDLIST 


BEE4 


LCADB11 


PDAIDTDT 


FAD3 


LCADR11 


PDAIDTDP 


FCD3 


L0AD1 


$$BDFLDR 


PHE3 


LCAD3 


SYSEUFLD 


PBF2 


LOG 


DDMPGEN 


HDE5 


LCGDEL 


PDAID 


AED4 


LOGIN? 


PDAID 


AGE3 


LOGBITE 


$$BDFLD1 


PJB1 


LCOKtESC 


EBEPBDE 


NKD2 


LOOK SUB 


EBEPBDE 


UKD3 


LOOP 


PDAIDGTW 


EAE3 


LOOP 


PDAIDGTW 


EAE5 


LOOP 


PDAIDGTP 


EDK1 


LOOP 


PDAIDGTP 


EDK4 


LOOP 


PDAIDGTT 


EGK1 


LOOP 


PDAIDGTT 


BGm 


LOOP 


BEALDUMP 


HPC1 


LOOP 


EREPUNIT 


MKC«4 


LOOP 


EREPESWK 


NHB4 


LOOP 2 


$$BDFLDR 


PHD1 


LOST HEX 


PDAID 


AFH5 


LSTALNT 


SDPAB 


GDB5 


LSTCECHK 


PDAID 


AED1 


LSTFILD 


EREPESPT 


MFd 


LSTBTN 


EREPEDIT 


MEA2 


LSTBTN 


EEEPEDCP 


MUB1 


L STB IN 


EREPEDES 


NSB5 


LTACHCK1 


BEALDGKP 


HNE3 



Label 

LUBCHCK 

LUBLOOP 

L0BL00P1 

LUBL00P2 

LUBL00P3 

LUBLOOP 4 

LDB LOOPS 

L0BLOOP6 

LDBL00P7 

LUBL00P8 

LU10 

LU9 

MCARNDX 

MCARPART 

MCARREAD 

MCARRTRN 

MCEVENT 

MCH 

MESSAGE 

MODN 

HONENDB 

MONENDX 

M0NEND1 

M0NEND2X 

MONENTPG 

HOHRETPH 

MONRETPO 

MONTSTDT 

MONTSTM 

MONTSTMC 

MOVE 

MOVE 

MOVE 

MOVECOM 

MOVECOM 

MOVECOM 

MOVEHEX 

MOVEMSG 

MOVEMSG 

MOVES AM E 

MOVE UP 

MOVEUP 

MOVEUP 

MOVEUP 

MOVREG 

MOVSTAT 

MOVSTAT 

MOVSTAT 

MOVSTAT 

MOVUP 

MOVDP 

MPS 

MSG 

MSGLNG 

MULTISEQ 

MVCCTR 

MVCCTR 

MVCCTR 

NEWCHK 

HEHLIHE 

NEWLINE1 

NE^LINEt 

NEWPAGE 

NEWPAGE 



Phase 


Location 


REALDUMP 


HRB1 


REALEUMP 


HRC1 


REALDUMP 


HRDt 


REALDUMP 


HBF2 


REALEUMP 


HBC3 


REALDUMP 


HRG3 


BEALDUMP 


HRja 


REALDUMP 


HRE5 


REALDUMP 


HSB1 


REALDUMP 


HSB2 


REALDUMP 


HSBa 


REALDUMP 


HSB3 


EREPCCH 


MHB2 


EREPCCH 


MHA5 


EREPCCH 


MHA3 


EREPCCH 


MHE4 


SDEHR 


GJB1 


EREPBDE 


NLA1 


EREPTES 


NFC1 


EREPESPT 


MFB5 


SDEHR 


GGD3 


SDEHR 


GGE3 


SDEHR 


GGC3 


SDEHB 


GGG3 


SDEHR 


GGB1 


SDEHR 


GGF3 


SDEHB 


GGF1 


SDEHB 


GGJ1 


SDEHB 


GKH3 


SDEHB 


GGH1 


ESTVUT 


LAB4 


EREPSMTP 


MTB5 


EBEPESWK 


NHD3 


EBEPEDIT 


MEB4 


EREPEDCP 


MUB5 


EBEPEDES 


NEca 


EREPEDIT 


MEB1 


REALDUMP 


HNG5 


SYSBUFF1 


PGA1 


BEALDUMP 


HJH1 


PDAIDGTW 


EAJ5 


PDAIDGTP 


EEC3 


PDAIDGTT 


EHF1 


PDAIDQTW 


EKI5 


EBEPEDIT 


MED2 


PDAIDFTP 


DBF3 


PDAIDFTT 


DDH3 


PDAIDGTP 


ECC2 


PDAIDGTT 


EFC2 


PDAIDFTP 


DBGh 


PDAIDFTT 


DDG4 


$$BPDAID 


AMC3 


EREPESWK 


NHA4 


PDAID 


AGD1 


LSEBV. 


KBG5 


EBEPEDIT 


MEC4 


EREPEDCP 


MUD2 


EBEPEDES 


NEE1 


PDATDITH 


CAA2 




BEH5 


PDLIST 


BFca 


REALDUMP 


HGGt 


EREPEDCP 


MUD1 


EREPEDES 


NEE5 
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Label 



Phase 



Location 



NIWPG 


EBEPADPT 


MMC1 


NEUTAPE 


EBEPESTB 


NGA5 


NEWT APE 


EBEPHIST 


NJB2 


NEXT 


PDAIDFTP 


DBE1 


NEXT 


PDAIDFTT 


DDE1 


NEXT 


PDAIDGTP 


EEF4 


NEXT 


$$BDFLDB 


PHB2 


NEXTCLB 


EEALDUMP 


HTC3 


NIXTECB 


SYSEDFF1 


PFJ4 


NEXTFCB 


$$BUFLD1 


PJE4 


NEXTIN 


PDLIST 


BCE2 


NEXTONE 


PDAIDITP 


CCD1 


NEXTOPT 


EBEPTES 


NFC3 


NIXTPAG1 


BEAIDUMP 


HGE3 


NIXTEC 


EBEPSPCL 


MNC1 


NEXTBC 


EREPASTA 


MPB4 


NIXTECBD 


EBEP2715 


MLC1 


NEXTECRD 


EBEPSPCL 


MNA5 


NEXTBCRD 


EREPASTA 


MPA5 


NEXTOP 


SYSEOFLD 


PDA1 


NOAID 


PDAID 


AACt* 


NCALT 


PDAIDITW 


CAC4 


NCALT 


PDAIDGTW 


EBH2 


NOALT 


PDAIDQTW 


ELJ1 


NCAUTOM 


DUMPGIN 


HBG5 


NOD 


PDAID 


AGF4 


NCDBL1 


PDAID 


AEB4 


N0DBL2 


PDAID 


AEA5 


NCEDIT 


BEALD0MP 


HPF3 


NOGOT 


PDAID 


ALD4 


NOLOG 


SYSBUFLD 


PED1 


NCMOBE 


PDAID 


AGG2 


NONEED 


PDAID 


AAB4 


NCNMiS 


PDAID 


AKJ1 


NONZEBO 


EBEPEDIT 


MEB2 


NOPHSE 


SYSBDFLD 


PEC2 


NCPHYS 


SYSEUFLD 


PBB5 


NORMAL 


$$BPDAID 


AMD2 


NCSYS 


SYSEOFLD 


PEG3 


NOTEND 


EREPESTB 


NGC3 


NOTEND 


EBEPHIST 


NJD1 


NCTINBS 


REALDUMP 


HNH5 


NOTONCOU 


PDAID 


ALC2 


NCTOi 


SDAID1 


GAG1 


NOTPBNT 


SYSBDFLD 


PAA2 


NOTYPE 


SYSBDFLD 


PEG2 


NCTYP2 


SYSBDFLD 


PBF1 


NOX203 


UCBLOAD 


PCF1 


NBECHK 


LSEBV 


KAB3 


NUMBEB 


DO MP GEN 


HBD1 


NXTBLOCK 


EBEPEDTR 


MVA2 


NXTEIEM 


SDEBR 


GLE1 


NXTENTB1 


REALDUMP 


HLF1 


NXTENT1 


REAIDUMP 


HMC5 


NXTENT3 


REALDUMP 


HME3 


NXTGBP 


EREPONIT 


MKC3 


OBB 


EREPRDE 


NLA 3 


ODCABD 


PDAID 


ABD1 


OLEBBCD 


PDAID 


AKB4 


OKIGN 


PDAIDGTW 


EBF3 


0KIG15 


PDAIDGTP 


EED4 


OKIGN 


PDAIDGTT 


EHDtl 


ONCE 


EREPESTR 


NGB2 


ONCE 


EREPESWK 


NHA5 


ONE EXT 


LSEBY 


KBG4 



Label 


Phase 


Location 


ONLIES 


PDAID 


ACE5 


OPCDMV 


LSERV 


KAK1 


OPENCKEB 


EREPMNTR 


MCA4 


OPENFILE 


IREPMNTB 


MCA5 


OPTCHK 


EBEPTES 


NFA4 


OPTION 


EREPMNTR 


HCB2 


OPTIONS 


PDAID 


ACB5 


OPTION 1 


EREPMNTR 


MCB3 


0PTI0N2 


EREPMNTR 


MCB4 


OPT ION 3 


EREPMNTR 


MCB5 


0PTI0N4 


EREPMNTR 


HCC1 


OPTNFND 


EREPSMCP 


MQA4 


OPTNNODA 


EREPSMCP 


MQA2 


OPTOFF 


EREPESWK 


NHB3 


OR 14 


PDSDM 


JDD2 


OB 17 


PDSDM 


JCD4 


OB 17 


PDSDM 


JDJ2 


OBBCHAB 


DUMPGEN 


HEI1 


OUT 


PDAIDITT 


CDJ5 


OOT 


PDAIDGTT 


EHJ1 


OUT 


PDAIDQTT 


ENJ3 


OUTABEA 


PDLIST 


BAB1 


OUTPUT 


PDAIDITT 


CEA2 


0UTSIDE1 


REALDUMP 


HLB5 


OVERFLOW 


PDAIDQTW 


EKES 


OVFLIND 


PDAIDITP 


CBl)4 


OVFLIND 


PDl^ICITT 


CDD5 


OVFLIND 


PDAIDQTW 


EKF3 


OVFLIND 


PDAIDQTT 


BNE1 


PAGE 


ESTVUT 


LAE1 


PAGTABE1 


REALDUMP 


HKG4 


PAGTAB1 


REALDUMP 


HMF1 


PARAMCNT 


PDAID 


ALB1 


PARMCHAR 


EREPMNTR 


MBC3 


PARMCHK 


EREPMNTR 


MBC1 


PARMCHK 


EREPMNTR 


MCA1 


PARMHEX 


EREPMNTR 


MBC5 


PARM2715 


EREPMNTR 


MBD5 


PCKALLP 


PDSDM 


JEG2 


PCKLAST 


PDSDM 


JEG1 


PCKLP 


PDSDM 


JEB1 


PCOMPARE 


PDSDM 


JHF1 


PCPU 


EREPRETV 


MGB4 


PCUA 


EBEPBETV 


MGC5 


PDATE 


EBEPBETV 


MGB2 


PDVTYP 


EBEPBETV 


MGC3 


PEREVENT 


SDEHR 


GKB3 


PGM EVENT 


SDEHB 


GKB5 


PGMINT2 


BEALDUMP 


HKH1 


PGMINT3 


BEALDUMP 


HKJ1 


PHASE2ND 


EBEPBDE 


NLB3 


PIBCHCK 


BEALDUMP 


HPE5 


PIBLOOP 


REALDUMP 


HPD5 


PIBL00P1 


REALDUMP 


HPF5 


PIBSAVDP 


REALDUMP 


HNH2 


PJOB 


EREPRETV 


MGC1 


P0SMSG1 


SYSBUFF1 


PFE4 


P0SMSG2 


SYSBUFF1 


PFC3 


PP00LEX1 


REALDUMP 


HMC1 


PREDUCE 


PDSDM 


JHD1 


PREOPEN 


PDSDM 


JFB3 


PREPROC 


EREPMNTR 


MCB1 


PRINT 


PDAIDFTP 


DBH2 


PBINT 


PDAIDFTT 


DDB5 


PBINT 


REALDUMP 


HVB1 
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Label 

PBINT 

PEINI 

PFINT 

PHINIBR 

PBINTEUF 

PBINTDK1 

PRINIIT 

PFINTIT 

PPINIIT 

PBINTMSG 

PBINTOOT 

PRNTBLK1 

PBNTCE 

PENTCR1 

PBNTTATA 

PRUTDITA 

PROCESS 

PROEXTNT 

PROGRAM 

PRROUT 

PRROUT 

PRT 

PRTCr 

PRTDATE? 

PFTEBRCD 

PRTE^ 

PBTGiT 

PBTMC 

PBTMCL 

PBTQDES 

PETTE 

PBTVAL 

PRTZERO 

PSAMESW 

PST0BE14 

PTERM 

PTIME 

PUBCECK 

PUBCHK 

PUBCCMP 

PUBLCOP 

PDBL00P2 

PUNCHRT 

PUPDATE 

PUT 

PUT 

PDTIN 

P2EJ1 

P2715 

QTAMFRMT 

QIAMREC 

QDEOl 

BCDPBO 

RCTYP 

RDDISK 

BBEPKZ 

RDEBBCK 

BPFOBMAI 

RDLOGOO 

BDL0G15 

BELOG85 

RDNEXTOV 

BEPPCOL 

RDPRI 



Phase 


Location 


EBEPEDIT 


MEF2 


EBEPEDCP 


MUC1 


EREPEDES 


NEC5 


SYSBUFLD 


PED2 


SDEEE 


GLB1 


LSEBV 


KBH3 


$!:BSDAID 


GMB1 


EBEPSPCL 


MNB2 


EREPEDTR 


MVA5 


SYSEUFLD 


PECS 


EEEPASTA 


HPB2 


BEAIDUMP 


HKB4 


REAL LUMP 


HLE3 


EEAIDUMP 


HLD3 


EREPSPCL 


MNB5 


EREPASTA 


MPB3 


EREPHIST 


NJB4 


LSEBV 


KBJ3 


EREPRETV 


MGB5 


EBEPEDCP 


MUC2 


EREPEDES 


NED1 


EREPEDTR 


MVB1 


PDAID 


AKC2 


SDEHR 


GKG1 


PDAID 


AKF3 


SDEHB 


GKF3 


PDAID 


ABB5 


SDEKR 


GJD3 


SDEHB 


GLE5 


PDAID 


AKB1 


SDEHR 


GLG2 


PDAID 


AKF1 


SDEHB 


GLB5 


PDSDM 


JHH1 


PDSDM 


JHB1 


EREPRETV 


MGC4 


EREPRETV 


MGB3 


REALDUMP 


HTF3 


PDAID 


ALB3 


PDAID 


ALC3 


BEALDOMP 


HTH3 


BEAIDUMP 


HTJ3 


DUMPGEN 


HEE4 


PDSDM 


JHJ1 


PDAIDTDT 


FAJ1 


PDAIDTDP 


FCJ1 


PDAIDITP 


CCB1 


EREPRDE 


NLB2 


EREPRETV 


MGD1 


PDLIST 


BFE1 


PDLIST 


BFB1 


EREP 


MAC1 


EREPUNIT 


MKC1 


EBEPEDE 


NKC3 


EREPESPT 


MFA4 


EBEPBDE 


NKD1 


EREPADPT 


MMA4 


REALDUMP 


HNB1 


EREPRDE 


NKA3 


EBEPBDE 


NKAa 


EBEPBDE 


NKA5 


REALDUMP 


HME5 


BEALDUMP 


HMB1 


PDAID 


AKD1 



Label 

BDREC 

RDRESP 

BDTPE 

BEAD 

BEAD 

BEAD 

BEAD 

BEAD 

READ 

READ 

BEADAAA 

READADDR 

READIN 

READISK 

READLOG 

READLOG 

READLOG 

READOPTN 

READRCRD 

EEADRCRD 

READREC 

READREC 

READOO 

BEAD1 

BEALDUMP 

BEALPRT 

BECBEAD 

RECUP 

BECUP 

BEDUCEA 

BELCCW1 

BELD 

BELEASE 

BELO 

RELO 

BELO 

RELOAD 

RELOC 

RELOC 

RELOC 

RELOC 

RELOC 

REPDNCH 

RESET 

RESET 

RESP0F2 

RESTSET 

EESTSET 

RESTSET 

RESTSET 

RESTSET 

RETAR 

BETMCNOS 

RETOUR 

RETURN 

RETURN 

RETURN 

RFCURR 

RFONE 

RLDMINUS 

RTRVLP2 

R7PLUS 

SAMESW 

SAVEDATA 

SAVEIT 



Phase 


Location 


EREPASTA 


MPA3 


SYSBUFLD 


PEC1 


EREPESPT 


MFA3 


ESTVUT 


LAG1 


EREPEDIT 


MEE1 


EBEPEDIT 


MEE5 


EBEPSMES 


NDB1 


EBEPESWK 


NHB1 


EBEPHIST 


NJB5 


EREPRDE 


NKB3 


PDAID 


ACD1 


EREPSMES 


NDBa 


SYSBUFLD 


PAr2 


EREPEDIT 


MEE2 


DUMPGEN 


HAG3 


EREPEDIT 


MED5 


EREPEDIT 


MEEU 


EREPMNTR 


MBA5 


EREPSPCL 


MNA4 


EREPASTA 


MPA2 


EREPSPCL 


MNA3 


EREPTES 


NFB2 


EREPSMES 


NDE5 


DUMPGEN 


HAE3 


REALDUMP 


HFB1 


$^BSDAID 


GMC4 


EREPADPT 


MMA3 


EBEPTES 


NFE3 


EREPESTR 


NGB5 


REALDUMP 


HHD1 


REALDUMP 


HGB3 


PDLIST 


BDJ3 


SDEHR 


GGB3 


DUMPGEN 


HAC1 


SYSBUFLD 


PAC1 


$!SBUFLDR 


PHB1 


PDLIST 


BAK4 


PDAIDGTP 


EDE5 


PDAIDGTT 


EGD5 


EREPMNTR 


MBA2 


EREPTES 


NFA3 


EREPHIST 


NJA2 


DUMPGEN 


HEHa 


EREPESPT 


MFC3 


SYSBUFF1 


PFK2 


PDAID 


AJE3 


PDAIDFTP 


DBC1 


PDAIDFTT 


DDC1 


PDAIDGTW 


EBC3 


PDAIDGTP 


EDD5 


PDAIDGTT 


EGC5 


$SBATTN3 


GPC4 


SDEHR 


GJF3 


$$BSDAID 


GPG3 


PDLIST 


BBB2 


PDAIDTDT 


FAH2 


PDAIDTDP 


FCH2 


EBEP 


MAB5 


EREP 


MAB4 


EREPSMES 


NDA2 


EREPRETV 


MGB1 


SDEHR 


GLC3 


REALDUMP 


HHH1 


EREPASTA 


MPE1 


PDAIDITP 


CBF5 
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Label 

SAVEIT 

SAVEPSW 

SAVEE2 

SAVE STOP 

SAVESTUF 

SAVE«ORD 

SAVI1 

SAVLCOP 

SAVL00P1 

SAVLC0P4 

SAVPSW 

SAYPSW 

SA?UK 

SAfUM 

SA?U!9 

SAfUK 

SAVOM 

SCAN 

SCAN 

SCAN 

SCAN 

SCANBLK 

r^CANOO 

SCI N CO 

SCMiOO 

SCANOG 

SCANC5 

SCAN1 

SCAN 2 

SCAN20 

SCAN4 

SBMACHEK 

SEABCH 

SEGTABE1 

SEGTAB1 

SELCttBG 

SELECT 

SELINCP 

SELPARM 

SELREGH 

SELSITH 

SEL2715 

SEP¥1NQ 

SEBVHDL 

SET 

SETBE 

SETBR 

SETCKSW 

SETEKTNT 

SETLSTSW 

SETNLCOM 

SETPAR 

SETRESET 

SETRTERM 

SETRTGO 

SETRTKWD 

SETSCNSW 

SETTEST 

SETUP 

SETUP 

SETUP 

SETIIENT 

SHIFT 

SHIFT 

SHIFTSET 



Phase 


Location 


PDAIDITT 


CDF5 


PDAID 


ALH5 


PDAIDFTW 


DAC1 


DUMPGEN 


HAD3 


PDAIDGTP 


EEG3 


PDAIDGTT 


EHG1 


REALDUMP 


HJC3 


PDAIDQTT 


ENG1 


REALDUMP 


HNC3 


REALDUMP 


HNB5 


REALDUMP 


HND5 


PDAIDFTP 


DEB 3 


PDAIDFTT 


DDB3 


PDAIDITP 


CBA5 


PDAIDITT 


CDA4 


PDAIDGTP 


EEB2 


PDAIDGTT 


EHC1 


PDAIDQTT 


ENB2 


EREPSMCP 


MQA5 


EREPSMES 


NDC3 


EREPEDES 


NEA2 


EEEPESWK 


NHD1 


EREPMNTR 


MBB2 


EREPSMTP 


MTA3 


EREPEDTP 


MYA2 


EREPED** 


NBA3 


EREPEDUl 


NCA2 


EREPEDU1 


NCA3 


DUKPGEN 


HAGS 


DUMPGEN 


HAB5 


EREPSMTP 


MTB4 


DUMPGEN 


HBC2 


SDEHR 


GHH4 


EREPUNIT 


MKA5 


REALDUMP 


HKC4 


REALDUMP 


HME1 


EREP 


MAEa 


EREPRET? 


MGA4 


EREPRET? 


MGA5 


EREP 


MAE2 


EREP 


MAE1 


EREP 


MAE3 


EREP 


MAE5 


SDEBR 


GJG5 


SDEKR 


GJB5 


EREPESTR 


NGB1 


PDAIDFTP 


DBB1 


PDAIDFTT 


DDB1 


SDEHR 


GGD1 


EREPUNIT 


MKBU 


PDAID 


AEE2 


EREPSMTR 


MRB2 


SDAID1 


GAG 3 


EREPMNTR 


MBB5 


SDPAR 


GDB4 


SDPAR 


GDG2 


SDPAR 


GDJ2 


EREPSMTR 


MRB3 


PDAIDFTW 


DAE4 


PDAIDGTW 


EBH3 


PDAIDQTW 


ELJ3 


SYSBUFF1 


PFB1 


EREP2715 


MLA4 


SYSBUFF1 


PEG 4 


S$BUFLD1 


PJD4 


EREPRETV 


MGA3 



Label 

SHORTFCB 

SHORTFCB 

SHORTOUT 

SHRTMSG 

SIO 

SIOCHK 

SIOENT 

SIOENT 

SIOENTER 

SIOENTSV 

SIOENTSV 

SIOENTSV 

SIOENTSV 

SIORDa 

SIORTN 

SIORTN 

SIORTN 

SIORTN 

SIORTN 

SI0RT2 

SKPG 

SM**STRT 

SMESSTRT 

SMTPSTRT 

SOLVE 

SORESCAN 

SORTER 

SPCLNGRD 

SPCTST1 

SPECODE 

SPLIT 

SPLIT 

STAGN 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

START 

STARTIO 

STARTRUN 

STDLBPRT 

STEP4 

STINST 

STMREGS 

STOPONEV 

STOPTEST 

STORECAW 

STORERJ 

ST0RER5 

ST0RE2ND 

STORLIN 

STRTADDR 

SUBCHEK 

SUBSWTH 

SUMCPUID 

SUMPARM 

SUMREGN 

SUMSTART 

SUMSWBYT 

SUMSWTH 



Phase 


Location 


SYSBUFF1 


PFC5 


$$BUFLD1 


PJG4 


PDLIST 


BCG5 


PDAID 


AGC1 


$$BPDAID 


AMC4 


PDAIDQTW 


EKG3 


PDAIDGTT 


EFA1 


PDAIDQTT 


EMB2 


PDAIDITW 


CAB1 


PDAIDFTP 


DB12 


PDAIDFTT 


DDG2 


PDAIDGTP 


ECBt 


PDAIDGTT 


EFB1 


REALDUMP 


HGC3 


fS$BPDAID 


AMB4 


PDAIDITP 


CBB1 


PDAIDITT 


CDB1 


PDAIDQTI? 


EJB1 


PDAIDQTT 


EMB1 


REALDUMP 


HFJ5 


EREPESPT 


MFC2 


EREPSM** 


MSA1 


EREPSMES 


NDA1 


EREPSMTP 


MTA1 


SYSBDFF1 


PFK4 


PDAIDTDT 


FAC5 


EREPMNTR 


MCA3 


PDAID 


AGC4 


PDLIST 


BAJ1 


EREP2715 


MLE5 


PDAIDTDT 


FAH4 


PDAIDTEP 


FCH4 


PDLIST 


BDJ5 


PDAID 


AAB1 


$$BPDAID 


AMB1 


SDPAR 


GBB1 


EREPMNTR 


MBA1 


EREP2715 


MLA1 


EREPADPT 


MMA1 


EREPSPCL 


MNA1 


EREP ASIA 


MPA1 


EREPSMTR 


MRA1 


EREPEDTR 


MVA1 


EREPESTR 


NGA1 


$$BUFLD1 


PJE1 


EREPRDE 


NKB1 


LSERV 


KAJ4 


REALDUMP 


HNI1 


PDAIDFTP 


DBF5 


PDAID 


AAD4 


SDEHR 


GGD5 


SDEHR 


GGC5 


PDAIDTDP 


FCC5 


SYSBUFLD 


PEH5 


REALDUMP 


HHB1 


PDLIST 


BBK1 


PDLIST 


BBJ2 


EREPSMTR 


MRA4 


EREPMNTR 


MBB4 


EREP 


MAC2 


EREP 


MAD3 


EREP 


MAC5 


EREP 


MAC4 


EREPSMCP 


MQA1 


EREP 


MAD4 


EREP 


MAD1 
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Phase 


Location 


SUMSWH2 


EREP 


MAD2 


SDMTPCUA 


EREP 


MADS 


SUPP5T1 


REALDOMP 


flMB5 


SUPRZ 


EST^UT 


LAJ4 


SVCCKVT 


PDAID 


AJC3 


SVCENT 


PDAIDQTT 


EMC5 


SVCENTER 


PDAIEFTW 


DAB1 


SVCENTPY 


PDAIDGTW 


EAD1 


SVCEIJTRY 


PDAIDGTP 


EDB3 


SVCENTRY 


PDAIDGTT 


EGB3 


STCENTRI 


PDAIDQTU 


EJB4 


SVCEliTRY 


PDAirQTT 


EMB4 


SVCEBR 


PDAID 


AJF2 


S7CERRCD 


PDAID 


AJB5 


SVCGIT 


PDAID 


ABB4 


SVCIGN 


PDAID 


ABC3 


SVCIKIT 


PDAIDGTW 


EBB 3 


SVCINIT 


PDAIDGTP 


EDC5 


SVCIKIT 


PDAIDGTT 


EGB5 


S7CIKIT 


PDAIDQTW 


ELB1 


SVCINIT 


PDAIDQTT 


EMA3 


S7CK 


PDAIDGTP 


EEE4 


SVCPI 


PDAIDGTW 


EAE1 


SVCP1 


PDAIDGTP 


EDB2 


SVCPT 


PDAIDGTT 


EGB2 


SVCRESP 


PDAID 


AJD1 


SYCSCE 


PDAID 


ABB3 


SVDUMP 


$$ESDAID 


GMB4 


SiOFF 


PEALDUMP 


HJB3 


SUTCHTST 


PDAIDGTW 


EBDa 


SWTCHTST 


PDAIDGTP 


EEC5 


STOCfiTST 


PDAIDGTT 


EHC5 


SW1 


PDAID 


AKC4 


swia 


PDAID 


AFK5 


S115 


PDAID 


AJC5 


SW6 


PDAID 


AKC5 


SW8 


PDAID 


AKG3 


SYSRIORN 


SYSBUFLD 


PAE4 


lAPEIO 


EREPHIST 


NJA4 


TliPEBEAD 


EREPEDIT 


MEF1 


TAPEREAD 


EREPSMES 


|ilDB3 


TAPE10 


EREPSMES 


NDC1 


TAPLABL 


LSERV 


KBJ2 


lEGO 


PDAID 


ADG5 


TBMPBEC 


PDLIST 


BCJ1 


TESTIGN 


$$BUFLD2 


PKE1 


TEST1 


PDAIDFTW 


DAD2 


TEST1 


PDAIDFTP 


DBB4 


IIST1 


PDAIDFTT 


DDB4 


TEST1 


PDAIDGTW 


EAH1 


TEST1 


PDAIDGTP 


EDC2 


TEST1 


PDAIDGTT 


EGC2 


IEST1 


PDAIDQTW 


EJG4 


TEST1 


PDAIDQTT 


EME5 


TEST2 


PDAIDFTT 


DDC4 


IHEPtJT 


PDLIST 


BAG4 


TIME 


EREPMNTR 


MBC2 


TIME 


EREPEDIT 


MEC1 


TI01 


REALDOMP 


HGF3 


TI01 


REALDOMP 


HJD3 


TRACKS 


BREF 


M1B3 


TRAILERS 


EREPESTR 


NGC2 


TRAILERS 


EREPHIST 


NJC3 


IRAN LOAD 


SREP2715 


MLC2 


TiANSFCH 


PDAID 


AHF4 



Label 


Phase 


Location 


TRASDAID 


J^$BSDAID 


GFB1 


TRCIGNIC 


PDAID 


AHF1 


TRMODCOR 


'SIBSBAID 


GFE4 


TRSAVE 


EREP 


MAB2 


TRTDO 


SYSBOFLD 


PEE4 


TRY 


PDAIDITP 


CCD3 


TRY 


PDAICITT 


CEG2 


TRY 


PDAIDFTP 


DCB2 


TRY 


PDAIDFTT 


DEB2 


TRY 


PDAIDGTP 


EC J 2 


TRY 


PDAIDGTT 


EFJ2 


TRY 


PDAIDQTT 


ENG4 


THY 


PDAIDTDT 


FADS 


TRY 


PDAIDTDP 


FCD5 


TRYPT 


PDAIDITP 


CCFt 


TRYPT 


PDAIDFTP 


DBG3 


TRYPT 


PDAIDFTT 


DDJ3 


TRYPT 


PDAIDGTP 


ICD2 


TRYPT 


PDAIDGTT 


EFD2 


TSTBYT 


SDPAR 


GBFl 


TSTBYTRT 


SDPAR 


GCB1 


TSTFLLP 


SDPAR 


GDJ1 


TSTTYP 


SDPAR 


GDD1 


TST32n3 


.15$B0FLDR 


PHK1 


TST3211 


SYSBOFLD 


PBB2 


TYPE 


EREPMNTR 


HBD3 


TYPEXCP 


SYSBOFLD 


PEB5 


TYPINRTN 


PDAID 


AGE4 


TYPOOT 


SDPAR 


GBC1 


TYPOOTRT 


PDAID 


AGB1 


TYPRTORN 


SYSBOFLD 


PAK3 


TYP2RTRN 


SYSBUFLD 


PBD1 


OCBLOAD 


OCBLOAD 


PCB1 


ONCKREAD 


EREPONIT 


MKA3 


ONCKRTRN 


EREP ON IT 


MKA2 


ONCKSKIP 


EREPONIT 


MKA4 


ONITPOB 


SYSBOFLD 


PAJ5 


ONPACK 


PDAIDTET 


FAE3 


UNPACK 


PDAIDTDP 


FCE3 


UNPACK1 


REALDOMP 


HJE1 


ONPAKT 


PDAIDITP 


CCC1 


ONPK 


PDLIST 


EDF4 


ONPKHEX 


EREPEDIT 


MEC4 


UNPK1 


PDLIST 


BCF4 


ONRECSET 


PDLIST 


BCB2 


UPDATCTR 


ERSPSMTR 


MRBl 


UPDATE 


REALDOMP 


HHJ1 


OPDRCTPR 


EREPSMTR 


MRA3 


OPDT 


EREPSMTP 


MTAS 


UPDTFWHD 


EREPSn** 


MSBI 


OPDTFWRD 


EREPSMTP 


MTB2 


UPDTHWNO 


EREPSMTP 


MTB1 


OPDTLOOP 


SREPSM** 


MSA5 


UPDTLOOP 


EREPSMES 


NDC4 


UPDTWRTN 


EREPSM** 


MSB2 


OPHDCYL 


EREPSMCP 


MQB1 


OPREG 


PDLIST 


BBG3 


?ARRPL 


SDPAR 


GDH3 


VERMOD 


DOMPGEN 


HEB4 


7IHTAB 


$$BSDAID 


GMJ2 


VISASN 


PDSDM 


jac2 


VOLID 


SREPBETV 


MGC2 


VSBBOX 


REALDOMP 


HXE5 


VSCCB 


REALDOMP 


HWC1 
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Label 

VSCCE1 
YSCCB2 
VSCCB3 

VSCCi 

VSCC«1 

VSCCIi2 

VSCCW3 

VSCCU4 

VSCCIJ5 

VSCC16 

VSCCW7 

?SCCi8 

VSFIX 

¥SFIX5 

VSFOiiMBG 

VSIDA 

VSIDAI 

¥SIDA2 

VSIDA5 

VSPFl 

¥SPFT1 

VSPFIS 

VSBPSl 

VSSELP 

VSSTPT 

¥SSTPT1 

VSSTIT10 

VSSTPT2 

VSSTPTU 

VUPD1V 

WAIT 

\iAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT 

WAIT POT 

WANTPRNT 

WANTPRT 

WANTPRT 

WANTPRT 

WHICH 

WHICH 

WHICH 

WHICH 

WHICH 

WHICBAID 

WHICHONE 

WHICHONE 

WIND 

WEAPUP 

WRAPI3P 

WBITi 

WRITE 

WPITMSG 

WRONGTAPE 

WBONGTP 

X203 

ZEFOTAB 



Phase 


Locatxon 


REALDOMP 


HWE1 


REALDOMP 


HWH1 


REAIDUMP 


HWD3 


REALDOMP 


HWC2 


REAIDUMP 


HWJ3 


REALDOMP 


HWB5 


REALDOMP 


HWC5 


REALDOMP 


HWF5 


REALDOMP 


HWG5 


REALDOMP 


HXB1 


REALDOMP 


HXC1 


REALDOMP 


HXD1 


REALDOMP 


HXE1 


REALDOMP 


HXF3 


REALDOMP 


HXD5 


REALDOMP 


HWB1 


REALDOMP 


HXF1 


REALDOMP 


HXJ1 


REALDOMP 


HXC3 


REALDOMP 


HXH2 


REALDOMP 


HIB3 


REALDOMP 


HYD3 


REALDOMP 


HYE3 


REALDOMP 


HXB5 


REALDOMP 


HYG3 


REALDOMP 


HXH5 


REALDOMP 


HYC1 


REALDOMP 


HYB2 


REAIDUMP 


HYE1 


REALDOMP 


HYGl 


EREPSMTP 


MTB3 


S$BPDAID 


AMF4 


PDAIDITP 


CCG3 


PDA ID ITT 


CEK2 


PDAIDGTP 


ECE5 


PDAIDGTT 


EFE5 


PDAIDQTT 


ENK4 


PDAIDTDT 


FBB1 


PDAIDTDP 


FDB1 


EREPHIST 


NJD3 


PDLIST 


BAJ4 


PDAIDGTT 


EHH1 


PDAIDITP 


CBG5 


PDAIDITT 


CDG5 


PDAIDQTT 


ENH1 


PDAIDFTP 


DCF4 


PDAIDFTT 


DEF4 


PDAIDGTP 


ECF3 


PDAIDGTT 


EFF3 


PDAIDQTT 


ENC5 


PDAID 


AAB2 


PDAID 


AAH1 


DUMEGEN 


HEC4 


EREPESPT 


MFA5 


PDAIDGTW 


EBJ5 


EBEPRDE 


NLA5 


EREPTES 


NFB4 


EREPHIST 


NJC2 


PDSEM 


JFF1 


EREPESTR 


NGA4 


EBEPHIST 


NJB1 


OCBLOAD 


PCD 2 


EREPRDE 


NKB2 



Label 

ZER01 

ZER02 
ZERO 3 



Phase 

DOMPGEN 
DOMPGEN 
DOMPGEN 



Location 

HEE5 
HEF5 
HEG5 
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i 



INDEX 



AAA= option, see PDAIDs 
accessing PDAID routines 260 
ACCTCOMN (job accounting interface 

common table) 291 
ACCTxx (job accounting interface 

partition table) 292 
alternate area, see PDAIDs 



B 

buffer load programs, see printer 
support programs 



RDESUM option 206 

relative displacements 195 

requirements 189 

selective retrieval 19 8 

SUM option 20 3 

summary phases (non-TES) 20 2 

table phase structure 199 

TES 204 
error messages 257 
ESTVUT (error statistics by tape volume 

utility program) 187 
explanation of flowchart symbols 299 



cancel codes and messages 2 89 
Channel Queue Table and Entry 
charts, see phases 
communications region 276, 278 



274 



density data 288 
device type codes 286 
DOS/VS supervisor calls 261 
dump, real storage, see DUMPGEN 
dump, transient, see PDAIDs 
dump, virtual storage, see PDSDM 
DUMPGEN (dump generator) 139 

control statements 139 

execution 139 

detail charts 143-165 

general chart 142 

introduction 139 

messages 140, 257 

OPTN statement 140 

REALDUMP (stand alone dump) 141, 14^ 

REALDUMP logic flow 14 2 

REALDUMP output 141 



F/L trace 11, 23 

data collection 23 

detail charts 65-69 

function 23 

general chart 22 

logic flow 22 

options 2 3 

output 2 3 

sample output 25 

trace table entry 24 

tracing options 23 
FCB, see printer support programs 
Fetch/Load trace, see F/L trace 
flow chart symbols, explanation 298 



generalized supervisor call trace, 

see GSVC trace 
GETREAL - F REE REAL , see SDAID 
GSVC trace 11, 27 

data collection 27 

detail charts 70-77 

function 27 

general chart 26 

logic flow 26 

output 27 

tracing options 27 



EREP (environmental recording, editing 
and printing) 189 
communications region, see EREP 

information passing 
device processing 193 
displacements 190-192 
edit 199-210 

EDIT and SELECT options 19 7 
error messages 257 
examples of output 29 5 
execution 189 
function 207 
HIST option 205 
information passing 190 
messages 257 
output samples 29 5 
phase displacements 190-192 
phase functions 190 
phase interaction 190 
processing 189 
processor and table phase 199 



I 

I/O table interrelationship 26 5 
I/O trace 11, 17 

data collection 17 

detail charts 59-64 

function 17 

general chart 16 

logic flow 16 

output 18 

tracing options 17 
Input/Output trace, see I/O trace 



JIB (job information block) table 270 
job accounting interface common table 

(ACCTCOMN) 291 
job accounting interface partition table 

(ACCTxx) 29 2 



Index 313 



job information block (JIB) table 270 



label list 301 
literature, related 3 
logical unit block (LUB) table 26 8 
LSERV (label information cylinder 
display) 179 

label information record format 179 

sample output 180 
LUB (logical unit block) table 268 



M 

manuals, related 3 
messages 257 

monitor call event, see SDAID 
MONPARM, see SDAID 



O 

OPTN statements, see DUMPGEN 



15 
260 

15 



12 



partition communications region 27^ 
PDAIDs 11 

AAA= (option) 14, 

accessing routines 

alternate area 14 

control statements 

core-wrap mode 14 

detail charts 41-86 

F/L trace 11, 2 3 

general logic flow 

GSVC trace 11, 27 

I/O event 17 

I/O trace 11, 17 

initializer 42 

introduction 11 

options 15 

output device 13 

PD area 14, 38 

PD= (option) 13 

PIK table 40 

QTAM trace 11, 31 

routines 260 

switches 40 

system considerations 13 

tables 38 

trace table 19 , 20 

transient dump 11, 3 7 
PDSDM (page data set dump) 16 7 

accept parameters 167, 170 

close files 169 

detail charts 170-178 

flow of control 16 7 

function 16 7 

init-i al i^ation 16 7 



open files 168 
parameter acceptance 
output 174 



167, 170 



PER (program 


event record 


phases 




$$BATTN3 


123, 138 


$$BFCB 


243 


$$BPDAID 


52 


$$BSDAID 


94, 102, 130 


$$BUCB 


243 


$$BUFLDR 


243, 253 


$$BUFLD1 


254 


$$BUFLD2 


255 


ADDRCHK 


176 


DATEVENT 


134 


DUMPGEN 


139-147 


ENDSD 


123, 124 


EOFROUT 


175 


EREP 


189 


EREPADTP 


218 


EREPASTA 


220 


EREPCCH 


213 


EREPEDCP 


225 


EREPEDCR 


228 


EREPEDCU 


230 


EREPEDDA 


227 


EREPEDDK 


228 


EREPEDDl 


231 


EREPEDES 


235 


EREPEDIT 


197, 210 


EREPEDTD 


227 


EREPEDTP 


229 


EREPEDTR 


226 


EREPEDTl 


232 


EREPEDUR 


228 


EREPEDUl 


233 


EREPEDXl 


232 


EREPESPT 


212 


EREPESTR 


237 


EREPESWK 


238 


EREPHIST 


239 


EREPIPL 


215 


EREPMCAR 


214 


EREPMNTR 


208 


EREPRDE 


240 


EREPRETV 


213 


EREPSM 


223 


EREPSMCP 


221 


EREPSMES 


234 


EREPSMxx 


223 


EREPSMTR 


222 


EREPSPCL 


219 


EREPTES 


236 


EREPUNIT 


216 


EREPxxxx 


191 


EREP2715 


217 


ESTVUT 


188 


FASTRECl 




(2, and 


3) 137 


ITSTDEV 


178 


LSERV 


179, 184 


MCEVENT 


108, 133 


MONENTPG 


131 


non-TES 


202 


PDAIDFTP 


24, 66 


PDAIDFTT 


25, 68 


piT-s-n ■'"'^1^'T'^iJ 


28, 65 


PDAIDGTP 


29. 72 


PDAIDGTT 


29, 75 


PDAIDGTW 


32, 70 



314 DOS/VS Serviceability Aids 



PDAIDITP 


19, 60 


PDAIDITT 


19, 62 


PDAIDITW 


18, 59 


PDAIDQTT 


34, 81 


PDAIDQTW 


32, 78 


PDAIDTDP 


37, 85 


PDAIDTDT 


37, 83 


PDLIST 


53-58 


PDSDM 


170-178 


PEREVENT 


108, 134 


PGMEVENT 


109, 134 


P REOPEN 


175 


PRINT 


174 


PRINTBUF 


135 


PRINTIT 


136 


PRNT2K 


177 


REALDUMP 


142, 148-165 


SDAID 


91, 94, 97 


SDAIDl 


125 


SDAID2 


94, 101 


SDEHR 


104 


SDPAR 


94, 97, 100, 126 


STOPONEV 


109 


SYSBUFFl 


250-252 


SYSBUFLD 


243, 246-249 



physical unit block (PUB) table 272 

PIB (program information block) table 284 

preface 3 

printer support programs 24 3 

program event recording (PER) , see SDAID 

program information block (PIB) table 284 

PUB (physical unit block) table 272 

publications, related 3 



QTAM trace 11, 31 

data collection 32 
detail charts 78-82 
function 31 
logic flow 30 
options 31 
output 32 
sample output 33 



trace table entry 31 



samples of EREP output 29 4 

SAVSDAR, see SDAID 

SDAID (system debugging aid) 87 

core-wrap buffer (SDBUF) 104, 106 

communication between phases 91 

detail charts 125-138 

dumping and editing 113 

EHR (event handling routines) 104, 107 

general description 9 

GETREAL - FREEREAL 89 

initialization 94 

introduction 87 

logic flow 95 

miscellaneous routines 122 

monitor call event 88 

MONPARM 92 

operation 106 

PER list table 102 

parameter description table 98, 99 

parameter list 9 2 

printer IOCS 116 

program event recording (PER) 87, 88 

recording routines 110 

routines, logic flow 105 

SAVSDAR 9 4 

SDBUF 104, 106 

summary of SDEHR routines 10 4 

supervisor SDAID area 9 4 

termination routines 123 

TFIX - TFREE 89 
supervisor calls 261 
supervisor storage allocation 259 
system communications region 276 



tables (various) 259 
tape density data 288 
tape error block (TEB) 273 
TFIX - TFREE, see SDAID 
THTAB (track hold table) 275 
transient dump, see pDAIDs 



REALDUMP (stand alone dump) , see DUMPGEN 
related publications 3 



U 

UCB, see printer support programs 



Index 315 
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READER'S 
COMMENT 
FORM 



This sheet is for comments and suggestions about this manual. We would appreciate your 
views, favorable or unfavorable, in order to aid us in improving this publication. This form 
will be sent directly to the author's department. Please include your name and address if 
you wish a reply. Contact your IBM branch office for answers to technical questions about 
the system or when requesting additional publications. Thank you. 



Name 
Address 



What is your occupation? 



How did you use this manual? 
As a reference source 
As a classroom text 
As a self-study text 



Your comments* and suggestions: 



* We would e^eciaOy appreciate your comments on any of the following topics: 



Clarity of the text 
Organization of the text 



Accuracy 
Cross-references 



Index 
Tables 



Illustrations 
Examples 



Appearance 
Printing 



Paper 
Binding 
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programmers and operators of IBM systems. Your answers to the questions on the back of this 
form, together with your comments, will help us produce better publications for your use. Each 
reply will be carefully reviewed by the persons responsible for writing and publishing this 
material. All comments and suggestions become the property of IBM. 

Please note: Requests for copies of publications and for assistance in utilizing your IBM sys- 
tem should be directed to your IBM representative or to the IBM sales office serving your 
locality. 
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